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1 . SCOPE 


This specification establishes the modifications to the CLASY program as 
specified In TIRF 77-0055, titled CLASY Program Modification. 




2. APPLICABLE DOCUMENTS 


The folloMing documents form a part of this specification: 

TIRF: 77-0055 

'Memorandum dated March 17, 1976, from Rice University, Institute of Computer 
Sc^^ences (0. L. Van Rooy) to Ken Baker/TF3, NASA- JSC; Reference: 
documentation of SUPER- SCRAM 

McCray, B.; Modifications to the CLASY Program, JSC-12602, LEC-1048. 
NASA/JSC (Houston), April 1977. 
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3. SYSTEM DESCRIPTION 


3.1 KftRPWARE DESCRIPTION 

Thtt CZASSY clustering program^ as modified, is operatjuonal on 
the IBM 370-148 at Purdue LARS under the CMS370 operating system. 
The program utilizes the IBM Fortran IV-G compiler. 

3.2 SOFTWARE DESCRIPTION 

The CLASSY system of subprograms was originated by Dr. Michael 
Rassbach formerly a NRC post-doctoral fellow for NASA-JSC, 

Earth Observations Division (TF) , and currently the president 
of EL06IC, Inc. 

CLASSY was designed and implementation as an interative statis- 
tical clustering algorithm which had theoretical promise for 
application to classification of earth resources (image) data 
acquired from the LANDSAT satellite. 

The driver program for the clustering system in CLASSY. The 
data handling subprograms for the system are READTP and STATIS. 
RBADTP reads the input data file and writes the selected data 
on a disk file for acquisition by the interative statistical 
subprogram STATIS. STATIS operates on one pixel at a time to 
update cluster statistics. When a given cluster has received 
more than a specified number of points as assigned on a 
fractional, probabilistic basis, STATIS calls ADJUST to make 
the cluster split/combine decisions. The set of pixels is 
examined N times by STATIS during the clustering procedure 
where N is specified by the user. Statistics are printed for 
each cluster as it is generated, when it is significantly 
modified, and at the end of each iteration. At the end of 
selected iterations and after the last iteration, a cluster map 
is drawn showing the cluster assignment for each pixel. 
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A one-chaanel LARSYS tape la generated it the end o£ the last 
iteration. 

The CLASSY system o£ subprograms consists of the main driver 
program, CLASSY, 57 CLASSY. subprograms, II UVRSYS subprograms 
and CMS370 system routines. 

The overall CLASSY system is flowcharted in Appendix A. List- 
ings of the routines are shown in Appendix B. Sample output 
from the CLASSY system is shown in Appendix C. 

3.2.1 SOFTWARE COMPONENT NO. 1 (CLASY) 

3. 2. 1.1 Linkages 

CLASY is the driver program of the CIjASY clustering system. 
CLASY calls SETUPS, READTP, MULTI, and CLUSMP. 

3. 2. 1.2 Interfaces 

The common blocks INFORM, CLUSTR, CLUS, MISC, and STPAR and 
calling arguments are used in the program CLASY as interfaces 
wit! other routines in the clustering system. 

3. 2. 1.3 Inputs 

The required input to the CLASSY program consists of one set 
of control ceurds and one tape (or file) containing the multi- 
channel image data. 

CLASSY calls SETUPS, which reads the input control cards. 

These cards and their functions are described in the discussion 
of SETUPS (section 3. 2. 2. 6). 
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The image data tape (file) is presumed to be in either of two 
specific formats— either **IARSYS II” format or "UNIVERSAL” 
format. The tape (file) reading program in CLASSY, TAPERD, 
accepts either of these formats and self-determines the correct 
method of reading the data. 

3. 2. 1.4 Outputs 

The output from CLASSY are three disk files; two are report 
files and one is a one-channel data file. Inter ium reporting 
of statistical parameters and diagnostic data is providing 
during the iterative cluster-forming process as a brief summary 
on one disk file and a full report of statistical data is 
reported on the other disk file. 

Portions of each of the report files are maps with symbolic 
representations of areas clustered, to form these maps each 
pixel is classified using the statistics (mean and covariance) 
from the final cluster set determined by CLASSY. The symbols 
on the map represent the cluster which is the most likely 
parent distribution for the given pixel. The map is output by 
subprogram CLUSMP which also produces the one-channel data 
tape containing a header record and the line image records of 
the clusters. 

Sample output is shown in Appendix C. 


3.2.1,$ StioraigiB RftqulireiBant 


Not applicable. 

3. 2. 1.6 DeactlPtion 

CLASSY is the driver program for the clustering routines. 

3. 2. 1.7 Flovrchart 

See Appendix A for system flowchart. 

3. 2. 1.8 Listings 

See Appendix B for program listing. 

3. 2. 1.9 Restrictions 

The known restrictions inherent in the program are (1) the 
program will not successfully execute with only one channel, 
(2) a data vector containing a zero value in the channel of 
interest will cause an error termination of the program's 
execution, (3) the size of the original image data set read 
from the input tape and placed on drum must be containable 
in 840,000 characters of drum storage available to the random 
access routines. The 840,000 character limitation can be 
changed by request of the Research, Test and Evaluation 
Support Group. 
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3.2,2 SOFTNMlfi COMPONENT NO. 2 SE11JP9 

3. 2. 2.1 Linkage 

SETUP9 is called from CLASSY. SETUP9 calls NXTCHR and NUMBER, 
which are entry points in subroutine FIND. 

3. 2. 2. 2 interface 

Interface is accomplished through calling arguments and the 
following common blocks: INFORM, SUPCUM, and CLUSTR. 

3. 2. 2. 3 Inputs 

Inputs are described in Section 3. 2. 2. 6. 

3 . 2 . 2 . 4 Output 

SETUP9 writes a summary of the input to CLASSY. If an error is 
detected, SETUPS writes the following message ”IN\^ALID INPUT 
CARD-- "IGNORED" and processing continues. 

3 . 2 . 2 . 5 Storage Requirement 
Not applicable. 

3. 2. 2. 6 Description 

SETUPS reads and analyzes all cards input to the CLASSY 
program. The following control cards are input to the modified 
CLASSY program, to be analysed by SETUPS. In all cards, the 
"keyword" begins in card coliann 1, and any parameters on the 
card are placed from c£urd column 11 through 72, inclusive. 

1. "CHANNEL" CARD (i.e., "CHANNEL 1,5,9,13") 

The "CHANNEL" card specifies the channel numbers to be used in 
clustering the multi-channel data vectors. 
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2 , "NPTS** CARD 


The **NPTS'* card is used to specify the number of pixels to skip 
between the pixels In the original data when selecting a 
subset of pixels for analysis. Zero is the default value. 

3. "HEDl” card 

4. "HBD2” card 

These two cards may be used to specify any arbitrary heading 
for the printer output, including the cluster map. Any 
alphanumeric charaot^jrs put Into card columns ll"?! of these 
two cards will be output as a page heading. 

5. "COMMENT" card 

The "COMMENT" card Is equivalent in use and format with the 
"HEDl" and "HED2" cards, described above. 

6. "DATE" card 

This card is used to specify the date or any eight characters. 
Will be printed at the upper right hand corner or each page 
of printer output. 

7. "ITER" card 

The "ITER" card allows the user to specify the number of intera- 
tions through the data to be made by subrout-nes STATIS. 

8 . "MAP" card 

The "MAP" card allows the user to request cluster maps on all 
iterium iter ai tons or up to 10 specific iterations. Iterations 
must be entered separately; groups of numbers are not allowed. 
Examples: 1,3, 5, 7, 9 

ALL 
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3.2.3 SOFTWARE CONPONBNT NO. 3 READTP (LAST,XDATA,TOPID) 

3. 2. 3. 1 Linkage 

READTP is callad from CLASSY. READTP calls READ, RHRZTB, CNERR, 
UNZF RINIT, TAPHDR, LAREAD, FLDINT, LINERD, FDLZNT and ERTRAN. 

3. 2. 3. 2 Interface 

Interface is accomplished through calling arguments and the 
following coimion blocks: INFORM, CLUSTR, CLUS, MISC, and STPAR. 

3. 2. 3. 3 Inputs 

Image data tape described in 3. 2. 1.3 
LAST and TOPID - not used 
IDATA o input buffer. 

3. 2. 3. 4 Output 

READTP outputs the following error message: 

End-Of-Tape Reached before end of field. 

3 . 2 . 3 . 5 Storage Requirement 
Not applicable. 

* 

3. 2. 3.0 Description 

READTP performs the input image data handling functions and 
makes the image data available in two formats to the iterative 
statistical subprograms STATZS and CLUSMP. 

The original image data from the designated area of the input 
file is stored as one continuous block of data on a randomly 
accessible file. This file is used as an input file by this 
subroutine and by the subroutine CLUSMP. 
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The data read from the newly created file is scrambled by 
reading blocks of pixels from disjoint areas of the file, 
scrambling the order of the pixels and writing this data to 
another portion of the file as continuous records to be read 
by subroutine STATIS. 

3. 2. 3. 7 Flowchart 

See Appendix A for system flowchart. 

3.2. 3.8 Listingg 

See Appendix B for program listing. 


3.2.4 SOFTWARE CONPOMBNT NO. 4 MULTI (PV) 

3.2.4.1 Linkage 

MULTI if called from CLMST. MULTI ealle DATPIX, ALPREE, CLINIT. 
STATIS and CLDUMP. 

3. 2. 4. 2 Interface 

Interface ie accomplished through calling arguments and the 
following common blocks: CLUS,M1SC,STPAR, INFORM and CLUSTR. 

3. 2. 4. 3 Input s 
?V - Dummy arxay 

3. 2. 4. 4 Output 
None. 


3. 2. 4. 5 Storage Requirements 
Not applicable 

3. 2. 4. 6 Description 

MULTI calls the routines to initialize the clustering algorithm. 

3 . 2 . 4 . 7 Flowchart 

See Appendix A for system flowchart. 

3. 2. 4. 8 Listings 

See Appendix B for program listing. 


3.2.5 SOF'TWARB COMPONENT NO. 5 8TATIS (KROTXN.PV, SUN, SKEW ^ KURT, 

OSUM^OVAR) 

3. 2.5.1 Linkages 

STATIS is called by MULTI. STATIS calls DISC, CLASY2, CORECT, 
DOTSQ, VPV, VMTV, MPVS, ADJUST, CLDUMP, and EXP. 

% 

3. 2. 5. 2 Interface 

Interface is accomplished through calling arguments and the 
following common blocks: CLUS, MISC, STPAR, CLUSTR, and RAND. 

3. 2. 5. 3 Inputs 

KROTIN - top node. 

PV - dummy array. 

3 . 2 . 5 . 4 Outputs 

STATIS outputs two warning messages. They are: "***WARNING 

ON’ THE INDEX (KL*", "** SUSPECTED BAD DATA POINT —STATIS** 

XDO- , ROOT , VECTOR " 

SUM - sum matrix 
SKEW - skewness matrix 
KURT - kurtosis matrix 
OSUM - old sum matrix 
OVAR - old covariance matrix 

3.2.5. 5 Storage Requirements 
Not applicable. 
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3 .2. 5* 6 Description 

STATZS updates the proportion, mean vector, and covariance 
matrix for each cluster using maximum likelihood iteration. 
:?he routine first updates these parameters with each new data 
point and later makes updates only after a complete pass 
through all of the data has been completed. STATIS also 
accumulates measures of multivariate skewness and kurtosis. 

If a cluster has subclsuters the log of the likelihood ratio 
of the parent cluster to the subclusters is also accumulated. 
STATIS calls ADJUST when the weight for a given cluster has 
exceed a threshold value. 

3. 2. 5. 7 Flowchart 

See Appendix A for system flowchart. 

3 . 2 . 5 . S Listings 

See Appendix B for program listing. 
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3.2.6 SOFTWARE CONFONERT NO. 6 ADJUST (KLIN, SUN ^ SKEW, KURT, OSUM, 

OVAR) 

3.2. 6.1 Mnkaqa 

Adjust Is callSfl from STATXS. ADJUST calls GET, TR, DOTSQ, SQMTX, 
MXNV, UNXF, CZJR, TRXMTX, DENCAL, SPLXT, FREE, CLDUMF, SEPER, 
SUBLXM, BLXH, CORECT, JOXN, APRXOR, SQRT, ALDG, EXP, and XPRX. 

3.2. 6.2 Xntc?rface 

Interface is accomplished through calling arguments and the 
following common blocks: CLUS, MXSC, STPAR, CLUSTR, and JOXNPR. 

3 . 2 . 6 . 3 Inputs 

KLXN ^ current cluster 
SUN - sum matrix 
SKEW - skewness matrix 
KURT - kurtosis matrix 
OSUM > old sum matrix 
OVAR - old covariance matrix 

3.2.6. 4 Outputs 

ADJUST prints out three brief messages concerning statistical 
information and three error messages. They are; "ADJUST — 

WEIGHT_JWAS ^SPFAC_CHANGE ”, "STATISTICS: TRACE 

SK:iSW KURT TESTS (SPLIT>0) : , ###HAVE SPLIT_JWEIGHT 

SUBS_ ", "W/OVOL ERROR IN ADJUST: KL,W,NEW W,VOL ", 

••★★♦extrapolation problem in ADJUST: ITER, INDEX (KL) , VOLIN, 

OVOL, CVOL ", "LOG ERROR IN ADJUST: I, IM, KL, 

K/VRIN* " 

3. 2. 6. 5 Storage Requirements 
Not applicable. 
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3. 2.6.6 Deacriptlon 

ADJUST iubtracts off old data from tha auma accumulatad in STATIS 
and uaad in STATIS to calculate the proportion, mean vector, and 
covariance matrix for a cluater. There ia alao a ayatem for 
extrapolating cluater parametera which ia not currently uaed. 


ADJUST forme scalar meaaurea of multivariate akewneaa and 
kurtoaia and teat theae against thresholds also computed in 
ADJUST to determine if a cluater should be split. ADJUST 
also does all other test for discrete restructuring of the 
cluster free including testa for calls to JOIN, ELIM, SUBLIM, 
and SEPER. 

3*2. 6. 7 Flowchart 

See Appendix A for system flowchart. 

3. 2. 6. 8 Listings 

See Appendix B for program listing. 
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3.2.7 SOFTWARB COMPONENT NO. 7 CEDUHP (KLHED) 

CLOUMP calls CLPR to print all of the class headed by KLHED 


3. 2. 7.1 Linkages 

CLDUNP is called by MULTI and STATIS 

% 

CLDUMP calls CLPR and ISPLIT. 

3. 2. 7.2 Interfaces 

CLDUMP uses conwion blocks /CLUS/, /MISC/, /STPAR/r and /CLUSTr*/. 
CLDUMP calls CLPR and ISPLIT. 

3. 2. 7.3 Inputs 

KLHED - Head of class of nodes. 

3. 2. 7. 4 Outputs 
Message : 

DUMP OF OBSERVED CLUSTERS FROM . 

3. 2. 7. 5 Storage Requirement 
Not applicable. 

3. 2. 7. 6 Description 

CLDUMP calls CLPR to print the statistics for each of the 
clusters in the portion of the tree headed by KLHED. 

3. 2. 7. 7 Flowchart 
See Appendix A. 

3. 2. 7. 8 Listings 
See Appendix B for program. 
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3.2.8 SOFTWARE COMPONENT NO. 8 CLPR (KLIN, SUM, SKEW, KURT) 
CLPR prints all the variables indexed by KL. 


3. 2. 8.1 Linkages 

CLPR is called by CLDUMP. 

CLPR calls MORSTR, SQMTX, MINV, FREE 

3. 2. 8. 2 interfaces 

CLPR uses comnon blocks /CLUS/, /HZSC/, and /STPAR/. 

3.2.8. 3 Inputs 

KL - cluster index 

IN - level of cluster in tree 

SUM - mean array 

SKEW - skewness matrix 

KURT - kurtosis matrix 

3. 2. 8. 4 Outputs 

A listing of the statistics for cluster KL is written to unit 6. 
The index and symbol for cluster is written to unit 3. 

3. 2. 8. 5 Storage Reguirement 
Not Applicable. 

3.2.6. Description 

The permanent statistics for cluster KC are written to unit 6. 
The meaxv covariance, kurtosis, old mean and old covariance 
are calculated and written to unit 6. The index and symbol 
are written to unit 3. 


3. 2. 8. 7 Flowchart 


Sea Appendix A. 

3. 2. 8. 8 Lietinqe 


See Appendix B for program 


3 .2. 9.1 SOTTHMiE CONPONENT NO. 9 CUI8NP (MAP,LSTXTR) 

CLUSMP prints ths cluster map. The cluster map has each plixel 
represented by a symbol representing Its cluster tape. 

3. 2. 9.1 Llnhaqes 

CLUSMP Is called from ADJUST and CLASSY. 

3. 2. 9. 2 Interfaces 

Interface Is accomplished through the calling arguments and 
the following common blocks s ARRAY, GLOBAL, CLUSTR, MISC, CLUS, 
STPAR. 

3. 2. 9.3 Inputs 

MAP - Positive Indicates a 1 channel file Is to be written. 

Zero Indicates that the 1 channel file Is not to be 
written. 

LSTITR " Positive Indicates this is the last indication. 

Zero Indicates this is not the last indication. 

3. 2. 9. 4 Outputs 

A cluster map Is written to file 3. 

A cluster map is written to file 6. 

One channel LARSYS file written to file 16. 

3 . 2 . 9 . 5 Storage Requirement 
Not applicable. 

3. 2. 9. 6 Description 

CLUSMP reads the data is its original format, assigns a cluster 
number to each pixel and creates cluster maps for the terminal 
(unit 3) and line printer (unit 6) and a one channel LARSYS 
data tape (unit 16) . 
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3.2.9*7 FlOH'chiilrt 
S«e Appendix A. 


3«2.9.8 Lietinqe 

See Appendix B for program 


3.2.10 SOFTWARE COMPONENT NO. 10 CLU8T (B.rGP,NOO,XLOUT,KRaTZN, 

smi) 

CWST clasaiflar each point for the purpoee of generating a mrp. 

3.2.10.1 Linkaqee 

CLUST is called by CLUSMP. 

CLUST calls ZSPXiIT, CORBCT and DOTSQ. 

3.2.10.2 interifaces 

CLUST uses comnon block /HtSC/, /STPAR/ and /BIGCOM/. 

3.2.10.3 Inputs 

BIGP - Input data vector 

NDO - Number of data points 

KLOUT - Top node of output class 

KROTZN - Index of node 0 

SUM - Position of sum vector is cluster 

3.2.10.4 Outputs 


The following error messages are written to unit 6. 
..... WARNING ..... m CLUST, KROT * 

..... WARNING ..... IN CLUST, AT CHECKPOINT , KL - 


3.2.10.5 Storage Requirement 
Not applicable. 

3.2.10.6 Description 

CLUST determines the cluster most nearing matching each point 
and classifies the point as belonging to that cluster. 
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3.2.10.7 Floirchart 


Sea Appendix A. 
3.2.10.8 Lie tings 


See Appendix B for program 


3.2.11 SOPTMARE COMPONENT NO. 11 DATPXX 

DATPIX initializes constants in /CU58/, /HZSC/ and /STPAR/ 


3.2.11.1 Linkages 
DATFIX is called by MULTX. 

3.2.11.2 Interfaces 

DATFXX uses common blocks /CU38/, /MXSC/ and /STPAR/. 

3.2.11.3 Inputs 
None. 

3.2.11.4 Outputs 
None. 

3.2.11.5 Storage Requirement 
Not applicable. 

3.2.11.6 Description 
Constants are initialized. 

3.2.11.7 Flowchart 
See Appendix A. 

3.2.11.8 Listings 

See Appendix B for program. 
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3.2.12 SOFTWARE COMPONENT NO. 12 DENCAL (KL, RATIO, OLW) 
DENCAL adjusts the denominator offset and proportion of KL 


3.2.12.1 Linkages 
DENCAL is called by ADJUST. 

3.2.12.2 Interfaces 

DENCAL uses common blocks /CLUS/, /MISC/ and /STPAR/. 

3.2.12.3 Inputs 

KL - node to be adjusted. 

RATI0 - proportion of points contained by parent cluster. 

3.2.12.4 Outputs 
OLW - old weight. 

3.2.12.5 Storage Requirement 
Not applicable. 

3.2.12.6 Description 

New proportion « Ratio * all proportion 
OLW * old W(KPATH) 

Nodes are assun*ed to be reconnected in their new position. 

3.2.12.7 Flowchart 
See Appendix A. 

3.2.12.8 Listings 

See Appendix B for progreun. 
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3.2.13 SOFTWOUB COMPONENT NO. 13 SLIM (XEL) 

This routins sllninatss ths elustsr KEL from ths cluster tree 
and frees the storage. 

3.2.13.1 Linkages 

ELIM is called by ADJUST. 

ELIM calls SUBLXM and TR FREE. 

3.2.13.2 Interfaces 

ELIK uses common blocks /CLUS/, /MISC/ and /STPAR/. 

3.2.13.3 Inputs 

KEL - top node to be release. 

3.2.13.4 Outputs 
None . 

3.2.13.5 Storage Requirement 
Not applicable. 

3.2.13.6 Description 

ELIM prints a message that the cluster has been (.liminated. 

If the cluster has only one SUBLIM is called to 

eliminate it also. TRFREE is called to eliminate the cluster 
and its subs. 

3.2.13.7 Flowchart 
See Appendix A. 

3.2.13.8 Listings 

See Appendix B for program. 
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3.2,14 SOFTWARE CONPONBNT NO. 14 JOIN (XAI , KBI , SUM , SKEW, KURT , 

OSUM , OVAR , VW , B , A, D) 

JOIN creates a parent cluster for KAl and XBI. 

3.2.14.1 Linkages 
JOIN is called by ADJUST 

JOIN calls MORSTR, SQNTX, MINV, APRIOR, DENCAL, TRINTX, CLPR 
and SORT. 


3.2.14.2 Interfaces 

JOIN uses common blocks /CLUSTR/, /CLUS/, /MISC/ and /STPAR/. 

3.2.14.3 Inputs 

KAI - Cluster to be joined 
KBI - Cluster to be joined 
SUM - Sum matrix 
SKEW - Skewness matrix 
KURT - Kurtosls matrix 
OSUM - Old sum matrix 
OVAR • Old covariance matrix 
VW - Dummy array 
B - Dummy array 
A - Dummy array 
D - Dummy array 

3.2.14.4 Outputs 

SUM " Sum matrix 
SKEW - Skewness matrix 
KURT - Kurtosis matrix 
OSUM - Old sum matrix 
OVAR <- Old covariance matrix 
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3.2»14.S Storage Regulremcmt 
Not applicable. 

3.2.14.6 Description 

JOIN does the following functions: 

(1) locates clusters KAI and KBI in the tree. 

(2) creates a new cluster 

(3) inserts new cluster in tree and links to subclusters. 

(4) removes KA from old tree. 

(5) remove KB from old tree. 

(6) calculates statistics for new cluster. 

(7) prints data for new clusters KAI and KBI. 

3.2.14.7 Flowchart 
See Appendix A. 

3.2.14.8 Listings 

See Appendix B for program. 


3-25 


3.2.15 SOmOWB COHPONENT NO. 15 PRTRBB (TOPNOD) 


3.2.15.1 Llnlcage* 

PRTREE is called by ADJUST. 

PRTREE calls BRI4A1. 

3.2.15.2 Interfaces 

PRTREE uses common block /CLUS/. 

3.2.15.3 Inputs 

A node tree printed on units 3 and 6. 

3.2.15.5 Storage Requireii»nt 
Not applicable. 

3.2.15.6 Description 

PRTREE determines the location and proportion of each node 
of the tree. A line is prirted for each level of the tree 
showing the nodes on that line and the proportion of points 
in each node relative to the total number of points. 

3.2.15.7 Flowchart 
See Appendix A. 


3.2.15.8 Listings 

See Appendix B for program 



3.2.16 SOFTWARE CONPONENT NO. 16 SEPER (KL) 

SEPER r«moves a cl«;atar in favor of its subclusters. 

3.2.16.1 Linkages 

SEPER is called by ADJUST. 

SEPER calls CLPR, DENCAL, FREE. 

3.2.16.2 Interfaces 

SEPER uses coRinon block /MISH/. 

3.2.16.3 Inputs 

KL - node to be removed. 

3.2.16.4 Outputs 
None. 

3.2.16.5 Storage Requirement 
Not applicable. 

3.2.16.6 Description 

SEFER brings all of the subclusters of KL up to the level of 
KL itself and then eliminates KL. 

3.2.16.7 Flowch€urt 
See Appendix A. 

3.2.16.8 L istings 

See Appendix B for program. 


3-27 


3.2.17 SOFTMARB COMPONENT NO. 17 SPLIT (KL, SUM, SKEW, KURT, OSUM, 
OVAR^ ORT^ DSQ, SG , TAU , ' RE , VER# DUN, DSG , DTAU) 

SPLIT is called aeperate one cluster into two clusters. 

3.2.17.1 Linkages 

SPLIT is called by ADJUST. SPLIT calls HORSTR, SQMTX, EIGROT, 
NLT, MVEC, HTVEC, ACOM, APRIOR, MINV. 

3.2.17.2 Interfaces 

SPLIT uses common blocks /MISH/ and /CMBKIO/. 

3.2.17.3 Inputs 

KL - node to be removed 

SUM - sum matrix 

SKEW - skewness matrix 

KURT * kurtosis matrix 

ORT - coordinate transformation 

DSQ -> multiple use array 

ERE - multiple use array 

VER - multiple use array 

DUM « multiple use array 

DTAU - derivitive of objective function with respect to TAU. 

3.2.17.4 Outputs 

SUM - sum matrix 
OSUM - old sum matrix 
OVAR - old covariance matrix 
DSG - E * ORT 

TAU - square root of covariance matrix for subcluster A. 

SG - square root of covariance matrix for subcluster B. 
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3.2.17.5 Storage Requirement 
Not applicable. 


3.2.17.6 Deacrlption 

(1) Generate the centered versions of the variance, skewness, 
and kurtosis. 

(2) Shift to frame with unit inverse covariance matrix. 

(3) Initialize and make a good initial guess. 

(4) If Egienvalue negative, adjust "good guess" ten^ories. 

(5) Generate actual initial values. 

(6) Iterate to refine values. 

(7) Generate two new subclusters. 

(8) Create names and linkages for new clusters KA and KB. 

(9) Create statistics for new subclusters. 

3.2.17.7 Flowchart 
See Appendix A. 

3.2.17.8 Listings 


Seo Appendix B for program 


3.2.18 SOFTWARE COMPONENT NO. 18 SUBLIM (KLHED) 
SUBUN eliminates the subclusters of the node KLHED 


3.2.18.1 Linkages 

SUBLIM is called by ELIM and ADJUST. 

SUBLIM calls TRREE. 

3.2.18.2 Interfaces 

SUBLIM uses common block /NISH/. 

3.2.18.3 Inputs 
KLHED » parent node. 

3.2.18.4 Outputs 
None. 

3.2.18.5 Storage Requirement 
Not applicable. 

3.2.18.6 Description 

SUBLIM eliminates all of the subcluster for node KLHED by 
calling TRFREE for each one of them. SUBLIM then reset the 
SPFAC and PQRAT terms for KLHED. 

3.2.18.7 Flowchart 
See Appendix A. 

3.2.18.8 Listings 

See Appendix B for program. 
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4. OPERATION 


CLASSY ii op«s:ational of tha IBM 370/148 computer at LARS, 

West Lafayette, Indiana. 

CLASSY la executed by entering the following conmanda after 
algnlng on the on the computer ayatem. 

DEF STOR 2M 

IPL CMS370 

TAPEA (tape number) 

PFILE 

AA CLASSY 

Control input ia read from FILE FT21F002. 

Output is on unit 3 and 6 which are assigned in the PFILE EXEC. 
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APPENDIX A 


CLASSY FUNCTIONAL FLOWCHART 


CIA8Y. 


SBTUP9 iJnCTCHR 

U9UMBBR 


JlEADTP (41XNIT 

-TAPHDR 

^Ii>INT 

-LINERD 

-J^DLXNT 

41READ 

-JtHRXTB 

-ZOR 

■XAREAD 

-CMBRR 


LmULTX DATFXLX 

UO.FREE— FREE 

LcLXNXT MORSTR 

USTATXS p4)XSC 

•4«EAD 

■^ORECT 

-DOTSQ 

-VPV 

I -VMTV 

i -MPVS 

-ADJUST 
-PRTREE 
-CLUSMP 

Lcldump-. 


-CLPR 
-I SPLIT 


l-CLUSMP 


T-BFINIT 

l-FDLINT 

Lclust- 


f-RREAD 

-FSFMFL 

49RTHED 

-WRTHED 

-BWRITE 

M«RTLN 


-ISPLIT 

-CORECT 

-DOTSQ 


-CLPR 


t-LOCK 

-MORSTR 

-SQMTX 

-MINV 

-FREE 
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5T0FL0 


■JkDJnST . MQWfi«PB 

-TR 

J)OTSQ 
^SQ 
^AHSQ 
J3SQHTX 
J3MINV 
JUNIP 


^LPR 

-OTRMTX 

-TRIMTX 

.BENGAL 

Lsplit-. 




JIRAND 


fJ3SQMTX 

^IGROT. 

-ACOM 

JILT 

JIVEC 

JITVEC 

J^CON 

JfORSTR 

JO>RIOR 

LDMINV 


^’REE 

-GET— 


-FREE 

-CLDUMP. 


.SEPER. 


LSUBLIM- 
Lelim 


--CLPR 

Ltsplit 

— CLPR 

Ldencal 

Lfree 

— TRPREE. 


—SUBLIM. 

Ltrpree- 


.free 

.TRFREE. 

.FREE 


-CORECT 
-JOIN 


^ORSTR_ 

-SQMTX 

J4INV 

.APRIOR 

.BENGAL 

-TRIMTX 

-GLPR 


-STOFLO 


LAPRIOR 

Lprtree 


STOFLO 


FREE 
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APPENDIX B 


CLASSY LISTINGS 


riLFt ACMM 


FORTRAN A 


RUBWOlJTINC ACOM(AtR*C) 

rOBMON /MISC/ MO,HMtLRtLV«NINCLSfMXARfWTlNIT«llROOTfEPS*OCI.T« 

OCON«XOVFLO*XMNFLQfRADJINtELIRTHtSFPTH«VFACiAMM*ISLTH« 
^FAC»NRTSO»RORATH«SPMVTHtD«FACfORACTM«AMOFAC* _ 


AMO.Ot 

INOXVL' 


AMOM I n« AMOM ax 1 amor at • yOLL I M f B I AS t 
RET TER • MODE • COPtCN . SPCOR 
L*P A(MM«RUI •8(MQfMQ)«CfMQtP0) 


real 

RF«L«l» 


SOM 
TsUMR 
.1*1 • I 


no n 

no 13 
SOMso, 
no l? K«l*MO 

I ? SUM«SUM*». ( I «K ) »c (K « J) *c (I «K) Ap <K» J> 
Af 

n 

return 

FMi 


ACOOOOlO 

acqooqIo 

ACO0A030 

AC000040 

ACOOOOSO 

ACOOOORO 

ACOOOOTft 

ACOOOOAO 

ACOOftORO 

ACOOOIOO 

ACoooiTo 

ACOOOIPO 

AC000130 

ACOOftUO 

ACOOOlSO 

AC000140 

A/>nnni Tn 
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i 


} 


n.F I M)JUST f 0*#TW4N A 


• "i.m.triti *qetrKuui tTuiriA* 

HUFTOT«NHUFSO«NI>UMPfLntjrD 


SCR AH U RUPP IX 


SURPOUTtNE AnjUST(PLlN*SUM«SKEWfKUPT«OSUH«OVAR) 

CpHMOH/CLUS T R/ 1 HE R I N • JO T WRf) , CL SN AH 1 1 PT ♦ NOP 1 0 • S VH < 6 II ♦ 

I ASCAT*PPNTUI*»<LgCjPRTHE#PROUT*TOTPIX* 

P SCPAHlvBUPPlXtHUPTOTvNHUPSOfNIlUHP 

“ 

INTPRPH totprd 
|<RMPTOT«CLSMAH 

tWOPXIPTIfLSUHSOOIfLSUPERIPRItlOADJiPRItNSVHBUgl# 

1 •PRIHCH(?R|*CIN<?4) fCTOT(P3l •PPOP<?|l 9|PPAC(21I» 

H'MI? 

4 Ot*PlO» (9) •OnFN(H) 

f)Hf.NSION V»^IN(47SI •(iPN(R99l •0RpPf999l tALIHK(l) 

HPAL^f ALIM*- •PVOU)*VHOTD*OOUbP#OD« 

I * n • (LINK ni I • IHOEX <?7I I 
FO flVALfeNCE aiHKOl) •LSUBSISni I 

.FW »iyALFNCe(L!NKI31l*lSUPPPI?9|lf (LINK (31 1 * IOAOJ(?H) I • 

I (LIF'K cn I ) . (LINKOl) fPCUH(26| I • (LINK ( 31 1 •PRIRCH(2S) > 

(I rXK(3J •riN(24>l, (LINK(31) •CT0T(P3>)« (LINK (31 1 «PROP (221 1 1 

(LlNKOll.wADvMPOM* (LINK (31 1 «W (191 1 • 

NK( U ♦npHOP(l«) } • (L|NK(3i) tOliMlT) ) • (LINK ( 31 )« VOLIN (lAI I • 
CU I tWOLRI ( U| I « (LINKOl) fOCON( 14) ) * (LINK (31 ) fPORAT ( 13) ) f 

iN«nn.(>is«((i^n* (LiNKnif,pPASS(i2n t (link(5i)#pst(ii)), 

,i^'H( in *nrTN(ir! ) , (LINKOD tPC0N0(7) ) t (LINK(3U «VRIN(7) ) « 
(LINK on .•>KN(7) ) . (LINK (31 ) ,OPPI0P (9) ) * (L INK ( 31 ) *OOEN (») ) f 
(LINK ( 41 ) ) 

rOrtMON/CLUS/ JUNK (12) tNARL9NTOP«NTBS7HtNWANTtLlNK(14000) 
nImknsION MViPOn »L«(3)tLV(3) 

FNl'IVKU-NrF (1.9(1) *LVPIN) • (LP(?) 9LKUPT) • 

) (I P ( .4) fL'>WAtv) 9 (LV ( 1 ) 9LSUH) 9 (LV (2) 9 LSKFW) 9 (l.V (3) 9 LOSUM) 


(I 

(I 

(L 

(I 

(I 


COMMON /MISC/ M{nMM9LP9LV9NINCLS9MXA99WTINIT9KR00T9EPS90ELT9 
1 AN(j,t)OCU''i 9 < 0 VFI..O 9 XUNFL 09 WA 0 JlN 9 CLIMTH 9 SPPTH 9 VPAC 9 AMH,S«LTM 9 
» INOXVl . «|F aC9NPTS09PQRATH9SPMVTH9DWFAC9(}RACTM9AM0PAC9 
) Awn..llNiAMOMAK 9 4 MOPAT 9 VOLLlM 9 «IA 59 PJO!N 9 VPJOlN 9 WSIM 9 WOEL 5 M 9 

► hf: t tf w 9 '-tonfc* 9 ropLEN9 spcop 

niMHNSION HttCCFL (2) 9HACCFL(2) 9VACCFL(2) 


COMMON /STMAM/WAlT9CONLV9SKHN09SKCHl9TP«N09T»CHl9U»KBND 

1 PACCFI 9 MACCFL.VACCEL 
COMMON / INFOMN/HF 40(42)9 

) PAOSIZf 

2 DUPSYM9 

4 SERIAL 9 

4 MAXCLS 9 

M NO IMF 1)9 

A. V 4 RS 729 

« WOOS M 9 


u 

a 

4> 


XHNH 

I'^lock on) 9 

T^;VE 9 TOO) 


MAPTAP 
Tapcmk 

THPSVM 
TAPESV 

VARSZ4 
OIVSIZ 9 
9 XLOW 
FFTVEC 
9 HFSTVC 


OATAPE 
TPNSYM 
MAXniV 
FILFSV 
MAXFLP 
NOFET? 
9 YSI7 

KFFPLV9 
9 SPCMAS 

(30)9 FF7VC2 
(30) 


SAVTAP 9 

TSTSYM 9 

MINOIV 9 


N0FL029 
NOPET49 
NOSPFC 9 
PPTLEV9 
9 NOCLS39 

00)9 MISVEC( 


UPKCMI 9 

MAXFET 

SPLMAX 

¥ 2 iik?l 

NOMIST 

» 

PCTSZ 
3U) 9 


common /SPhak/ OAMMfci 90FLMET9S0TMET90HC0V90PSKFW9OPKIJPT9EXMNS09 

1 SHwMlNfFX 4 AX 90 AMLEN 9 TSOlNl 9 0 AMp 9 00 FIPMS 9 0 TAt» 9 TIM 09 TIMl 9 lTEPMX 

2 SPMtOtTTEM 

4F M SIM n ) .S'^Fta n ) ,KUPT ( 1 ) 9 OSUM ( 1 ) 9 OVAP ( 1 » 

PEAL EVIIn)9SVI16) 

c OMMON /jot MRS / K OiJO I N 9 PL I M 9 NO JO 9 NOEL I M 
OATa NAfiJ/7nn/ 

UATA TFIPST /n/ 

PULPOSF— TO NftKF MISC AOjUSTMENTS TO THF NOOE COPPFSPONDING TO CLASS 
(I) LHANOES CONTINUOUS STATISTICS 

</) TFSTS FOP AND INITIATES OESCPETE THANSFOPMATIONS 

arvjdST MAS UESKiMEO TO INCLUOF A NUMERIC EXTRAPOLATION SYSTEM THAT 
MAS MOT HfcFN COMPLFTFO, PARAMETERS VACCEL 9 MACCfcL AND PACGFL 
HAVE HEFF' SET TO 0 TO NULLIFY THIS SYSTEM, 

VALUES SMoT. YMOT 9 PMOT APE CALC. BUT NOT USED 

I-'X-f^a TS a H AO that is NEGATIVE IF THEPF HAS BEEN A COMPLETE PASS 
TH'^ODOH Ua|A IM STATIS WITHOUT CALLING aOJ«)ST 

I. iriK I SIhL inn node 
( €;(,«'• - CHll .0 iOOF 

I c;,|PfP « PAPFnT node 


AOJOOOlO 

ADJ00020 

AOJ00030 

ADJ00040 

ADJOOOSO 

ADJ00060 

AOJ00070 

ADJOOOBO 

ADJ00090 

ADJOOlOO 

ADJOOllO 

ADJOOlPO 

ADJOOllO 

ADJ00140 

ApJOOlSO 

AOJOOIHO 

ADJ00170 

ADJOOIBO 

9ADJ00190 

ADJ00200 

AOJ00210 

ADJ00220 

AOJ00230 

ADJ00240 

AOJ002SO 

ADJ002G0 

ADJ00270 

ADJOOZeO 

AOJ00290 

ADJ00300 

AOJ00310 

AUJ00320 

AOJ4'»0330 

ADJ00340 

AOJ003S0 

ADJ00360 

ADJ00370 

AOJ003A0 

ADJ00390 

ADJ00400 

ADJ00410 

ADJ00420 

9ADJ0043U 

ADJ00440 

9 ADJOO 4 SO 

ADJ004HO 

9AOJ00470 

9 AnjO 04 PO 

9AOJ00490 

ADJOOSOO 

9 ADJOOSIO 

ADJ00S20 

ADJ00S30 

ADJ00S40 

AOJOObSO 

9 AUJOOSGO 

AOJ00570 

AOJOOSHO 

ADJ00S90 

40J00600 

AOJ00610 

ADJ00620 

AOJ00630 

Al)JOOh40 

ADJOObSn 

ADJOObfeO 

ADJQObTO 

AUJOObKO 

AOJ006QO 

A0J00700 

ADJ00710 

AOJ00720 

AOJ00730 

AOJ00740 

AOJ007S0 

AOJ007H0 

At)Jno770 

AOJ007W0 

A0J00790 
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ORMUKL PAGE IS 
OE (POOR QUALITY 


V 


rilFl AfMIJST fORTRAN A 


C 

C 

C 

c: 

r 

f 

c 

r 

c 

r 

r 

(! 

f 

r 


OVAR - OLD CCVAR RAtRIK 

• CHANAF rw M€AW V 

STR,«STANrtARUI?iD WEIOHI 

MRKTER - MKASiiRE OF KURTO' 

VMOT - CHAN6F IN VARIAN 

V»!N • INWEK^E.OF COVAR 


I IL» . ! . • OFX A vs 

ITFRATIONS HAVE OCCURRED 



CAtL TO ADJUST 


1 ^«ceL^..p*ceEL.^.. 

OVIV PORMtT l•PAC^FL.n*CCEL•t4FtO.*l 
fFIRST « 1 
KL«KL1H 
KF«LSURER(KU 


r 

C 


<HO>NO. CHANNELS) 


r 

r 


r 

r 

r 

r 

r 

r 

r 

C 

r 

r 


r 

r 

r 

r 

r 


GET,^t»OHKlNft storage FOR SUBROUTINE ADJUST 

L'^NS * ?*RUS 
MRSMl M NOS- I 

CHANGE HE:HASSRACH 3/?)/77 

♦ I 

L A«M0HSTR(LM0S) 

I «*M0RST«(LNN5) 

|.I>sMORSTR(I.HOS) 
tVA*RORST«(| MOS) 

LAg a LA/2 ♦ I 

L«2 a LG/2 ♦ ! 

Ln? r LO/2 ♦ 1 

LVA2 s LVtt/? * I 

REIGHT for CLUSTER KL (CURRENT - OLD) 

now*w ikl)-0'4 (KL) 

00 a 1)00 

FW s W(KL) 

KAOTVal 

IF (INntX(KL) .LT.O) EW s OW(KL) 

INOfK^IS A FLAG THAT IS NEGATIVE IF THERE HAS BEEN A COMPLETE PASS 
tHPOUOH UATA IN STATIS WITHOUT CALLING ADJUST 
TF(1N«FA(KL),LT.0) KADTV*? 

CAtCULATF STATISTICS. 

should pf adjusted for the DiscRFTr: point 

EFFECT (SIMILAR TO SHFPHFPOfS CORRECTIOM). THIS HAS NOT VET HfFN 
nOF'e. RUT Should not have any major EFFECf. since KURT IS USED 
OWLV IN TnF ChUOL SCAN. 

ST**sFH/nw 

parameters FOh split TEST 

TRK*T«(KiiRT (KL.l ) tVRINlKL^)) )*STW 
J s K L ♦ I 

K * J ♦ 

t;Ks()OTS'l(SKFw(Kl>l ) .VRINIKL^I) )*STW 

1 (KL* 1 ) f VRIN (KL* 1 ) ) *STW*STW-TRK*TRK/AM0) *DW 
TPKs(TRK-A 1 )*(AM(j*2.) )#SORT(OW) 


OFLAV FACTOR TO GIVE 
WAITFs).*..AIT/,)a 


YOUNG CLASSES TIME TO GROW 


ACTUAL TFST VAl UFS. CHI PARAMETERS ARF CHI**2 VALUES CALC. IN 
CLIMIT 'IMILAhI.V FOP PNO PARAMETERS. 
TRKTFSsrRK<H»/-OW«TWBNO-THCHj*WAlTF 
SKTFSsSK-SKMNn*nw-SKCHl*WAITF 
i)RKTFS=URK-URKRMr)*nw-U«KCHI*WAITF 


r 

C F<TRAPOLATf. INF PAPAMFTERS. 
r 
c 

1 n? 


AND VOLUME 


PRI-'PARF VAHIAMCF 
rONTlNltf- 

CALL OSwMTx (ALINK (LB2) *VRIN(KL*1) ) 

Cfil. L ( ALINK (LA?) tOVAP(KL*l ) ) 

CALL (VMfNV (ALINK (in?) .ALINK (LVA2) .ALINK (LH?) .RVOL) 
f-VOLOaRVOL 

)VOL s-OLOG ( 0 A RS ( RVOLO ) ) /AMO-ALOG ( APS (FW ) ) 


A 

A 

i 

A 

A 


SIGNS UNTIL A SIGNIFICANT NUMBER OF 


uooaoo 

n 

idsms 

ADJOGGBO 
ApJOOGGO 
Ap JO 0900 
ADJ00910 
AOJ00920 
ApJ00930 
ADJ009A0 
ADJ00950 
ADJ00960 
ADJ00970 


99( 
000 
010 
020 
030 
040 
050 
OAO 
.070 
AUJOIOAO 
ADJ01090 


ADJO 

ADJO 

AQJO 

ADJO 

ADJO 

AQJO 

ADJO 

ADJO 


ADJO 

ADJO. 

AOJOI 

ADJO 

ADJO 

ADJO. 

AOJOI 

ADJO 

AJJO 

ADJO 


00 

!0 

20 

t?i! 

150 

IGO 

170 

IPO 

190 


ADJ01200 

ADJ01210 


ADJO 

ADJO 

ADJO 


ADJ0I250 


ADJO 

ADJO 

ADJO 

ADJO 

ADJO 


ADJO 1310 


ADJO 

ADJO 

ADJO 

ADJO 

AOJOI 

ADJOl 

ADJO 

ADJO 

ADJO 

ADJO 

ADJO 


ADJ01430 


ADJOl 


2?0 

230 

240 


260 

270 

2P0 

290 

300 


320 

330 

340 

350 

360 

370 

3P0 

390 

400 

410 

420 


440 


ADJO 1450 
ADJO 1460 
ADJ01470 
ADJO 14 AO 
ADJO 1490 
ADJO 1500 
ADJO 1510 
ADJO 1620 
AOJ01530 
ADJO 1540 
AOJ01550 
ADJO 1560 
A0J01570 
ADJ015R0 
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C 1. 


»im AlVHlST A 


r 

c 

r 

c 


v>K«DW/OK(KU 

«H tMFt>4»*0tf*0W (Kt > /W <KU ••Z 

SV ■ IN CtW 

rv.« FXT*«A»»0LAT10N FACTOR FOR SUM 

FXT^AROLATIUN niFFFWS FOR TWO TYPCS OF STATISTICS ISUNl INOFX (RU ) 

OU 101 

SV ( I ) «SUM M ♦KU -OSUM U ♦KU 

101 Fvin«svn)‘>«^M«nsuM<T«KU 

LAX^sLA^ 

IFIKADTY.eo.n (iO TO 134 

I.VXF«LA^ 

l.AX?«i.n^ 

fHANOF SONf OF SUMARFS 
FXTR SOM OF SQUARFS 
14 f.ONTINUF 

00 104 l*ltWOS 

ALIMK(|.M2*I-1 1 * alInk(LVX2*I-1)-AL1NK(LAX3*1-1) 

04 U!M(Ly^A<*tT-l) s ALINK(LR?^I-1) - WR^ALINK (LAXP^l-ll 

rotriM ATF SMOT (CHO IN MFAN VFCTOP) t VMOT (CHO IM VARIANCE)* 

H’«OT (CM« IN poiOR) SINCE LAST CALL TO ADJUST 

TNFSF ARE INfFNOFO TO 1AM)ICATF RATE OF MOTION OF Cl USTEW STATISTICS 
FOw INCOMPLETF SVSIF.N TO CALC, NFXT ADJUSTMENT POINT, 

SmOTbOOTSOIFVI I ) *VNIN(KL^1 ) )*EW/DW**? 

VnOTOsOaMSX ALINA (LVA?) .VRINIKL*! ) ) *<FV/OW) •*? 

VMOT * VMi»TO 

i*A*>#NlNft; palp mas not MFEN CALCULATED TFT* NEXT LINE INVALID 
PMOTspAI 


r<l I • I ''MT, * |r\L| *WWII\L» *3rr At < AL J *rnU I * I ("'i I *'>"*»! | , V«1D I 

I* ^«^*A 0 JUST»*I 4 *» RFI 6 HT**F 11 , 1 ** MAS»*Fll,l* 

aC»,E1?,S*« CHAN<3E»*E11,S,1X*F11,S,1X,E11,S*1X,F11 ,S) 

l*> 1 , TMK.sk, URK,T«KTFS*SKTES*URKTFS 


r 

r 

c 

r 

<\ 

r 

r 


TRACE I— ft'KiOST SUMMARY PRINTOUT 
T»*OT s H, 

MMTNT 701 • I tPFX (KL) *WU«L) *OW(KL) *SMFAC(«L) *MM0T*TM*)T*SM0T*VMCT 
70 1 EftPMATI* ‘ “ 

1 » S' 

mmTnT 

foMMATM statistics: TRACF»*FH,i** SKFWe*Fll,l*» KUMT*,FH,1* 

1 /,10K, •T*'STS (SMLTTsft): » *F 1 1 ,S*AX*E1 1 ,S,FX *F1 1 ,b) 

TRACE ?— ACTUAL APJU«^T PRINT ON SELECTIVF 

IE (K(KL) .MT.ihm|F(ASOO.)'»MMOR(KL) ,0M,R|KL) .1 E . 0 . OM.OW ,LE . O.OS'.RVOL 
.IF.OH'ALL CLPM(KL*NAUJ*SUM*SkEM,KUPT) 

IF {W(KU .LF,0,0»,OW,LF,0,OR,RVOL,LE,0,DO)P»TNT771*KL*W|KL) *DW,RVO| 
JT\ FijiyMAn IX, • 4/OVOL error In adjust :KL*W*NEr X*V0L»*I6*3E1S,7) 


lApJ s aimust ifnt constant 

NAOjsNAnj* 1 
V*KOsW(KU 
WC<U sow 

S T T I S T I C S— w #F I UHT 
KKstSUPS(KL) 


adjust TOTmL x'f-iriMT IN surclusters* if any 

I OCATF WI(-.HT-'«’0ST nodf 

IE IKK.KI.O) NO to I or 
rHWs\g (KL) “RKM 
tort CT'^TIKKIsCTOT (KK5 5-CHM 
KKsLINK(KK) 

TF(^K.^.h.O) GO TO iOrt 
ItK. )/()R 

INOTC = 1 
F'«THAMOLAtF MEAN 

FXF s TFMP. extrapolation FACTOR 
PEtPASSMACH 3/?l/77 
fi^XFswTfE"C»VAGCFL IKADTY) 

00 II 3 I =1,00 

SpM(KLtI lswP«(SV( n ♦EKF*FV(I) ) 

H’ OSUM (KL*1 ) =SNM |KL*I) 

CHAtMAP pf:WftSSHACH 3/P1/77 
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600 
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ADJO 
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670 

16A0 
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ADJ01700 
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A0J01720 

A0J01710 


ADJO 

AOJOl 


ADJ01760 


ADJO 


ADJ017G0 
AOJOl 790 


ADJO. 

AOJOl 

ADJO 


710 


740 

7S0 


770 


ROO 

»10 

8?0 


ADJ01630 
ADJ01B40 
ADJ016S0 
ADJ01060 
ADJ01H70 
AOJOjOHO 
AOJOlflRO 
ADJ01900 
ADJ01910 
ADJ01920 
ADJO 1930 
ADJO 1940 
A0J019S0 
ADJO 1960 
ADJO 1970 
A0J019R0 
ADJO 1 990 
ADJ02000 
ADJ0?010 
ADJ02030 
A0J0203C 
ADJ0P040 
ADJ020S0 
ADJPP060 
ADJ0P070 
AOJOPOMO 
ADJ02090 
AOJ02100 
ADJOFl 10 
ADJ02120 
ADJ02130 
ADJ02140 
AOJ02150 
AOJ02160 
ADJ02170 
ADJOHIOO 
ADJ0P190 

adjo??oo 

ADJ0??10 

AOJ02220 

ADJ02230 

ADJ0P240 

ADJ022S0 

ADJ02260 

ADJ02270 

ADJ022P0 

ADJ02290 

A0J02300 

A0J02310 

ADJ02320 

ADJ02330 

ADJ02340 

ADJ023S0 

ADJ02360 

ADJ02370 


r> n ->r» r>r»rs r>'>r» — r»'nnrj-mnr>'^ 


rttri ADJUST FORTRAN A 


5FT NFXT AOJUSTMFNT POINTS WITH MINIMUM 
UOilHH m Im * nNFAC 

WAnjlHU«N(KL)*41*«ONFAC> _ 

TF<y(KU .LT.WSIM) W AD J 4 KL ) «2 •pO«W I KL ) ♦WOELSM 
^WPITF 4«>f9R9T) MADJ4KU «W4KLT*NSIM 


RR97 FORMi^T 4* PAnj4KU*W4lCL>rNSIM««7F10«ll 

OfSCRFTE POINT 4SHEPMARO»S) CORRECTION 4TO COVARIANCE ONLY! 
DCORR* 4DN ^WADJ 4KLI) /24 

#»»^’^liAPNlN6f'^*rAAN6|^0^^ FOR DOUBLE PRECISION ••• 

00 IIH I*l*MfiStM(lP 

11 A L1NK4LR«I-1)*LINk4LH*I-1> ♦ OCORR 

FKTRAPOLATE covartanci 
FXF>VINI>'C«MACCEL 4KA0TY) 

IT*«0 

117 nr> 114 I « 1 « 

14 4LTNK4La2*l-l» « V«44AL1NK4L«2*I-1) ♦ EXF*ALINK (LVA2*I-1» 1 
CALL nTRMTX40VAR<KL*l)*ALINK44 02>> 

CALL 0*4|MV(AL1NK4LVA2)«ALINK4LD2)«ALINK4L02) »V0LIN4KU) 

CXF «|-XF*,3 

FYTRAPOLATEO covariance must be positive OEFINITEt ELSE LOOP 


ADJ023B0 
ADJOlSRO 
ApJOf 
Apjo} 
ADJOl _ 
ADJ02430 
ADJ02440 
AOJ02450 

ApJ02S4)0 
ADJ02510 


VfVi\r-^ 


X.EO,asiEXF«0* 

IF 4VOLIN4KU.LT.O. .AND. ITX.lt. 201 60 TO 117 
CV0L«At064ABS(V0LIN<KL)> 1/AMO-ALOG4ARS4W4KLH ) 

ALSO RFOUTRE NOT TOO RAPID CHANGE IN VOLUME ^ 

TF4AHS40V0L-CV0U .GT.VOLL1M.ANO.ITK.LT.P4.AND.EXF.6T.O.) «0 
CHANGE RF:PASSRArH 3/21/77 


772tlTX«INDFX4KL) .VOLINiKL) «0V0L«CV0L 

Format < / . • ***f xt Rapol at iom_problfm in adjust : i tew • index 4kl ) 


FPWOR message 

1F(ITX.GE.10)PR1NT 
77? “ “ 

« N.OVOL *t «CV0L*«l4f I6«3E1S.7) 

CHAMSF RE!RASSHACH 3/21/77 

*^T0PF COvArtlAiiCf matrix 

IF I ITX. OF. 20) CALL CLRR(KL*NAOJJ#SUM*SKEWfKURT) 
call OTRmTK(VPIN<KL^U tALINK(LVA2) ) 

prororatiO'ni CALC) /extrapolation 
fxf*hnfc*raccfl (KAOTr) 

PHKsPPOP(KL) 

OENaWIKF )-CTOT (KL) 

CINVsCTN(KL)-OCIN(KL) 

PROP ( KL ) s ( C I N V ) / ( OEN-ODEN ( KL ) ) 
f.0WOW MtSSAGE— PMOPORATION CALCULATION 

IF(PPOR(KL).GT.O..ANO.PROP(KL).LE.1.) go to 139 

print G3V. FnOFX (KL) .PRK*PR 0P(KL> fPRIRCM(KF) *W(KL) fCIN(Ki) • 

1 OCIN(KL) .CINV*V(KF) *CTOT (KL) *OEN*OOEN(KL) 

439 FORMAT(» ALPHA feRROR:PRK»P*CM, W • • I 3.4F9.4/* (ERROR CONT) 

I 3KR.4** 'V(KF) .CT()T*0EN,00EN»*4E9.4) 

CHANGE RFtRASSPACH 3/21/77 
PPINTOOT CLUSTER 

CALL CLPW(KLfNADJ*SUM.SKEWfKURT) 

PROP(KL) sPP*» 

13R ALPsALOG(P(.aP(KL) ) 

ALPOsALOG(OPROP(KL) ) 
nALP*ALP-ALP'> 

PFACseXP(f XF*r)ALP) 

PHOP(KL)sPRf>P(KL)*PFAC 
OpPOP(KL) sPPOP(KL) 

PRlPCP(Kf ) sPRIPCM(Kf ) 4PR0P(KL)-PRK 

ClN(KL)aCINV*PEAC 

nCTN(KI. )=CI*'MKL) 

OOFS ( K L ) s ( C T M ( K L ) /PROP ( KL ) *PR I RCM ( KF ) ) 
rTOT(KL)aW(KF)-ODFN(KL) 

AMJIJST PROPORaTIONS OF SUBS 
KKsLSimS (KF) 

1*1 CALL nFNCAL(KK,l,/PRIRCM(KF) fV(KF) ) 

KKsLINK (KK) 

IF(KK.MF.O) GO TO 14I 

ACTUAL rtST FOP splitting 
SP l IT TMF cluster 


ADJ02520 
ADJ02530 
A0J02540 
ADJQ25S0 
AUJC2S60 
ADJ02S70 
ADJ02SA0 
ADJ02590 
ADJ02600 
ADJ026I0 
ADJ02620 
ADJ02630 
ADJ02640 
ADJ026S0 
ADJ02660 
A0J02970 
TO U7ApJ026B0 
A0J02690 
ADJ02700 
ADJ02710 
ADJ02720 
VOLI ADJ02730 
ADJ02740 
A0JP2750 
ADJ02760 
ADJ02770 
ADJ02780 
ADJ02790 
AOJ02800 
AOJ02B10 
AOJ02A20 
AOJ02630 
ADJ02H40 
ADJ028S0 
AOJ02BG0 
AOJ02870 
A0J0288Q 
AOJ02890 
AOJ02900 
CIN*. ADJ02910 
AOJ02920 
AOJ02930 
AOJ02940 
AOJ02950 
ADJ02940 
ADJ02970 
ADJ02980 
ADJ02990 
ADJ03000 
AOJA3010 
AOJ03020 
ADJ03030 
ADJ03040 
ADJ030S0 
ADJ03040 
AOJ03070 
AOJ03080 
AOJ03090 
AOJ03100 
ADJ03110 
ADJ03120 
AO JO 3 1 30 
AOJ0314C 
ADJ031S0 
ADJ03160 
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( 


i 


1 


) 


FU€t AfMUST A 


r 

r 

r 

f 

f' 

f: 

r 

r 

r 

r 


.iStJflSjSgf threshold 

« irasu»s<Ku.NE,oi 6o to ?oo 

OF Ky»IOSlSI OR . ^ 


IF TRKTES* URWTFS 
SFTFS IR^ASURFS 

' A « A 


(MFASURE! 


. . OF SKEWNf 

IF(TRKTCS,tT,0,.ANO.SFfi 


TO 200 


f%FT WORKINO STORAOfe- FOR SPLIT* CALL SPLIT* PRINT RESULTS AND 
FREF WORKING STORAGE 
NSGSO»MORST»tLMOS) 

NTAUSO«NORSTW (LMOS) 

NOMNsMORSTRU MRS) 

N»SG»MORSTR(tNOSI 

NOTAO>MORSTR<LPQS) 

NSGSR/» « MS»S 0/2 ♦ I 
NTAUS? ■ NTAUSO/2 ♦ 1 
MnON>» * WHOM/? ♦ I 
NOSG? » NUSG /2 ♦ I 
NOTAU? * M'TAU/? ♦ I 

<vo SH TT 

CALL SPLIT (KL*SUM*SKFW.KURT*0SUM*0VA»* 

I ALTnk <LA?) tALTNK (LR?) . ALIMK CL02) • ALINK (LVA?» *ALINK (NS0SR2> » 

? ALINK(NTAUS?) *ALINKTnIHIM?» ♦ ALINK <NnSR2) * AL INK |NPT AU2) ) 

KC * LSitRS(KL) 

CALL PKTPFE(KL» 

KCaLSURStKl.) 

•^DCsLIWKJKa 

TPACF 4 

PRTNT 1S4* unEX(KL)*W(KL)* INDEX (KC).TNOFX<KDC)*ITF« 
wf-TTF U*1S4) INDEX <K|.) tW(KU #INOEX(KC) •INOEX(XOC) *ITFP 
FDRMATt* **AHAVt SPLIT»*I3*» WEIGHT* *FR, 1 • • SLIBS**213*» ITF««*I4) 


^S4 

C 

r free storage 

CALL CL«M"^P(»'L) 

CALL FREE «NSGSO,LMOS) 
CALL FREFDmTAUSD.LMOS) 
Call frf.e ('tnuN.i NOS) 
CALL FwtE (W0S«*1 NOS) 
CALL FwEt (wnTAU,LN')S) 
GO TO ?f)4 


f 

r 

c 

c 

r 

r 

r. 

r 


r 

r 

r 

r 


no 

FI 

?nt\ 


no 


NOT CHECK EOF Separation or to elininatf sups 

rwlNATF THIS CIUSTER IN FAVOR OF |TS SUBCLUSTERSf 
SPLIT fITh OOOS greater THAN SFHTH, 

IE(SPFAC(KU .LF.SEPTH*SPCOR) GO TO 30 
CALL SLMfcRD'U 


IF IT IS 


‘JOT RROCtSS 
GO TO 3‘JR 


OELETFO CLUSTER FURTHER 


FLIMINaTI- IHL SOPS^ IF IT HAS SUPS AND FITHFR 
m S«LlTTTr'*G LESS THAN SUPLIM THRESHOLD* OR 
(?,) IT IS SIMILAR TO SUBS AND SPLITTING LFSS THAN SRMVTH 
»0 rONTIMML 

FI. TMTNATf The S<l«CLUSTtRS IF THEY A»F OOMIMATFO BY THE MAIN 
CLUSTfR. 

SPWNOsISPEACIKL )-0PW10«(KL) )/SPCOR 

IF ( (SP«NO.LF,SOLTh,OW.PDPaT (KL) /dw.lt.porath.ano.sppno 
1 .LT. SRMVTH) .AND. LSUaSIKL) .NE.O) CALL SURLIM(KL) 

FLIMINATF THIS CLUSTER (AND PERHAPS ITS COCLUSTER) IF ITS 
PROPOWTION hECONFS too SMALL. 

FLIMINPTL IF PROPOHriON TOO SMALL AND FLIN PARAMFTFR NOFLIM IS OFF 
?f>4 IF (PPOP(KL) .Gfc .FLlMrH.OR.NOFLIM.NE.O) GO TO ?0S 
CALL FLIM(KL) 


• 00 NOT try TO PROCESS FURTHER 

GO TO 3 HR 
KrC*LS'IRF,R (Kl.) 

KOCsLlNK(FL) 


call JOlr^ IF A SIMILAR CLUSTER HAS BFF:n POUND 


r CLOSTFR; most v a sfLFICTI W feLY CHOSEN 


ADJ03I70 

AOJ031P0 

ADJOSipO 

AOsiOSlnO 

A0J03P10 
AOJ03220 
AOJ03230 
ADJ03240 
ADJ032S0 
ADJ03260 
ADJ03270 
ADJ032P0 
ADJ032R0 
ADJ0330n 
ADsl03310 
ADJfl33?0 
ADJ03330 
AOJ03340 
ADJ033S0 
AOJ03360 
AUJ03370 
ADJ033P0 
ADJ03390 
AOJ03400 
Anj034in 
AOJ034?0 
ADJ03430 
AOJ03440 
AOJ034S0 
ADJ034G0 
AOJ03470 
ADJ034M0 
ADJ034R0 
AUJ03SOO 
Aojnasio 
AUJ03SP0 
AOJ03530 
A0J03540 
ADJ03SS0 
ADJ03SG0 
A0J03S7n 
ADJ03SH0 
AOJ03S90 
AOJ03t»00 
AOJ03M0 
ADJ036P0 
A0J03G30 
40003640 
AOJ036S0 
ADw)036f.O 
ADJ03670 
Af)J036R0 
A0J036R0 
ADJ03700 
A0J03710 
AOJ03720 
ADJ03730 
ADJ0374n 
ADJ037SO 
ADJ0.3760 
ADJ03770 
ADJ03780 
ADJ03790 
ADJ03800 
ADJ03H1 0 
AOJ03tt?0 
ADJ03P30 
AD JO 3840 
ADJ03HS0 
ADJ03860 
ADJ03870 
AOJ038R0 
ADJ03890 
AOJO3RO0 
ADJ03910 
ADJ03RP0 
ADJ03930 
ADJ03940 
ADJ039S0 
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MLEt ADJUST FORTRAN A 


?S?S"5SfS “ • 


.IW.? Sk^SI^fi THOSR FURTHER OONN THE LIST 

'r.^.8^?‘-fy§SIKCCUEO.KL.AN0.LlNR(K0C».E0«0> 00 TO 250 


ADJ0390 

ADJ0399 


biif Kab? fa OT^T^ sr%s#v r •Kw« if f ww i v 

k^linkIkw) 

WW<*M IK ) /N (KL ) 

< <<•■ ♦ n • NO • SUH I K ♦ 1 n 

RR»IDOTSIii<fVtVR|NIKL^in*DOTSOCFV*VRINIK*inA«N»*.5/U(KU 


THIS IS 


fMFCK DIFFFRtiMCE IN DIAGONAL COVARIANCE MATRIX ELEMENTS* 

WARNING this CHECK IS NOT INVARIANT UNDER GENERAL LINEAR 

TRANSFORMATION. 

DO 212 l«ltMQ 
TMsMXARCI^l) 

DUE TO ROUNDING ERROR. 

IF!y^IM<^L*IM)«yRlN<K*TMJ .LE.O.) PRINT 612# I * IM. INDEX IKL » . INOEX 


Si?* I INDEX IKL»# INDEX 
. J';*'**'.* (J*yRINCKL*J> •VRlNIR^J) • j«l«MM) 

612^F0RMAn*^ LOG FRROR IN ADJUST t I • Tm.KL«K/VRTNc* •2IS«213#2I7/ I IS 

212 RR>RH*VRj6in#(ALOG(AHS(VRINIKL*!M)/VRIN|K«IM) )#1.C-2S)*«2) 

RRsRR/ I . 1 6* I WW- 1 . /WW ) «*2* 1 • ) 

V*V‘*k§ STMMETH icai.lv weighted measure 
TF (RR.GT.RmIU) go to 213 

FFST so FAw, CHFCn IF CLIISTfcP IS JOINABLF 
K^A X*K 
RMINbRP 
?IT KsLlNKIK) 

loop OVFP CLUSTFRS 

IFIK.GT.0I GO TO 211 

IS HLST GOfMI ENOUGH 

TF IPM|N.GT.PLIM#aMQ> go TO 2S0 

no JOIN . 

NJOsJOTMKL.KHA*.SUM,SKEW.KUPT#OSUM.OVAP»LIMK|LA) tLINKILH) # 

I L INK iLU) .L iPK (LVA) } 

CALL PRThFF (KF) 

2S0 roNTTNUE 

CALCUl.ATf SCALAP MEASUREMENTS OF SKEWNESS AND KURTOSIS TO TBE USFH 
IN fi TfcST OF normality 

7FR0 nul SKtWNFSS AND KURTOSIS (ACCUMULATED ONLY 1 BLOCK AT A TIMF) 
Dl/ 1 A 1 I s I • MO 
1*«1 SKFwIKI ♦I)aO. 

on manges over whole triangular array 
no lA? !=l,PM 
l*s? KO«t(KL*l)an. 

aoJUST 0*|S6) AND SPLITTING VARIABLES 
SPLITTING i)E PfREMT CLUSTER IS TO Bfc BOUKfDEO 

SPFACIKF)sANA)ti (SPFAC(KF) .AMINI (SPFAC (KF) ♦0W*BETTEW#0PRI0R|KF> ) ) 
POPAT <HL ) SI*. 

SPFAC (WL) s-RRRP.R 

TF(LSU»SO<L) .NE.O) SPFAC (KL) sAPPlOR (KL) 

OPPlORIKDsSPFACIKL) 

vrnuMP ANO coefficient calculations 

OCON(KL) sOOCON 

VOL IMKL ) sARS (VOL IN (KL ))*. 875651 0763E-26* (6. 2831 G5307/WIKL) )**M0 
VOLPT IKU sSOPT (VOLIN(KL) ) 

OW(KL)=W(KL) 

Page 


ADJ04i20 

AQJ04I30 

ADJ04140 

AOJ041S0 

APJ04160 

AOJ04170 

ADJ04iA0 

ADJ04f90 

ADJ04200 

ADJ04210 

AOJ04220 

ADJ04230 

ADJ04240 

ADJ04250 

ADJ04260 

AOJ04270 

AOJ042SO 

ADJ04240 

ADJ04300 

A0J04310 

AOJ04320 

AOJ04330 

A0J04340 

ADJ04350 

ADJ04360 

AOJ04370 

ADJ04380 

ADJ04390 

ADJ04400 

AOJ04410 

A0J04420 

AOJ04430 

ADJ04440 

ADJ04450 

ADJ04460 

AOJ04470 

ADJ04480 

AOJ04490 

ADJ04500 

ADJ04510 

ADJ04520 

ADJ04530 

ADJ04540 

ADJ04550 

A0J04560 

ADJ04570 

ADJ04580 

A0J04590 

ADJ04600 

ADJ04610 

ADJ04620 

ADJ04630 

ADJ04640 

ADJ04650 

A0J84660 

ADJ04670 

AOJ04680 

ADJ04690 

A0J04700 

ADJ04710 

ADJQ4720 

ADJ04730 

A0J04740 


WXV S.b 


"OOH QUALXIY 




►*11 F: AO.IMST A 


CMFCH STATISTICS TV^F 

INHEAIKU ■ I 

IF (If)A|)J<KU .Lf. NPTSO) 
WPfTF f3«9«nM> II)ADJ(Kl.)«NP 






INOEX(KL) « -lARSUNOEXiKLn 
ISO* INDEX fKU«M(KUf WAi>J(Kt) 


lOAOvJ(KL)*NMTSOflNOEX(KL»*WIKUf XAOJIKLl 
PO^NAI < V IDADJfNPTSOfIN|}FX*W*WA(>J»#3!Sf?El?.2) 


IDADJIKL) 
FONT INUK 


« NPTSO ♦ TDTPIX 


CAIC WPAP-AWUUNO POINT 

FWfF ALL THE bOHFlNtr ST0PA6E FOW ADJUST 
CALL r^ELIUA.LMtiS) 

CALL f«EE«LH*LMOS) 
tail FPEFtLDtLNOS) 

CALL K«F.L(Lv/A*L«OS) 

IF (NDFLIH .OT* A) NOELIM * NOFLIN - I 
HLTUHN 
FNO 


ADJ047S0 

AOJ047F0 

ADJ0A790 

ADJOAflOO 

ADJOADIO 

ADJ04020 

ADJ0Aa30 

ADJ04A40 

ADJ04«S0 

ADJ046S0 

ADJ04D70 

ADJOAPaO 

ADJOAPSO 

AOJ0A900 

ADJ0A910 

ADJ0A9P0 

AUJ0A930 

AUJOAPAO 

ADJOA9SO 
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ORIGINAL 
OF POOR QUAI 



Fllft AUFHEE rOPTRAN A 


SURMOUTIRC AtfRCE fKLHEO* UN) 
THIS RpUTlNf FREES THf 


tflKLHEn.EQ.O) RETURN 


*<t«KtHEn 
) A KLK«L1NK<KU 

rAU j[REE<Kt*UNI 

RJ.TURN 


i 

( 

i 

( 


( 


ALFOOOIO 

ttniUi 

ALFOOOAO 

ALFOOOSO 

AtFOOOSO 
ALF00090 
ALFOOlOO 
At F 001 10 
ALF00120 
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I-OOTMAN a 


r 

c 

r 


r 


r 


r. 

r 


FMMCTIOM A»«'S0(AM«AMCT) 

CFLCOLAtK^i Til T«ACK OF TMF SOUA»F OF TMF »4ATPIX AM, RELATIVF 
TO TMl '^fctPIC AMET. 

AMSO m TMACF (FM#AMET*AM*AMFT) 

?>TMENS10N MMA^ODfLPf*)) *LV<3I 

Ft|*lWAl FKOr (LP(l)«LVP!N)f (LR<?) »LKURT) t . , 

1 U RI 1 » ,LOVAC^J • (LVn ) •UWiMI • aV( 2 ) .I.SKEW) , (I.V( 3 » ,LOSUM> 

/Ml^r/ Mf,,MM,LR*LV*NINCl.StMXA»,WTINIT*KFOOT*EPS»OELT* 
AMii,(iOrf»N*XOVFtO#¥llNFIuO*WAOJIW,ELlMTH*SFPTH*^l''AC*AMM*5iBLTH* 


IMOXWLfWFAC.MPT^lOtPfiRATHtSPMVTH.OWFACtOPACTMjAMOMCt .. 

AMOM I N « AMOM A X • AMOR AT* VOLL IM«HlAS«PJOIN, VP JO I N « PS I M « POEL SM • 
Hi T TEP • MOi»t , COPI.FN , SPCOP 


£<1AI. AMiATSI.AMfeTUTS) 

FFAL**' AA-S<0,AMS000*W0p,C0L 
AHSOOxO# 

A lSOi>Dsrt, 
no ?h |«1,'10 
nti J*|*I 
PO'risO, 

IMOCeMKAHU) 

KJtOC*MXAH< J) 

n(t 10 K*1,J 

ROPaPOP* AM ( TKLMCi 1 ) *AMK T <K JLOC* 1 ) 
roLaCOLiAM(HJL OCiU*AMET UKLOCiU 
IM.OCalKLOC*! 

10 Kj|j)CaHJtOC»l 
PJLOCaKJLariJ 

IF n ,10.0) 00 TO 1? 

.JHa j* 1 

no 11 KsJPtl 

00WaH0a*A'1( T*<LOC*n*AMt- T (KJLOC) 

COl.aCOt ♦ AM ( •< JLOC ) *AMFT ( IM.OC* I ) 

IKI OCelKLOC* I 

11 KJ( OC**' JLOC4A 

1? IFd.fO.MO) 00 TO 14 
TKLOCalKLHCiI 
(PsI ♦ 1 

no 13 

00*AMFT (nJLOC) 

COL aCOl. ♦ A M ( K 01 . 0(. ) * AMF T ( I KLOC ) 

TKI f)C8lKf'C4t< 

13 KJI Of aK JLOr + K 

14 rOMTlMU<-‘ 

1 o /*rtsi)n=Ai3bo('>4Po>v<i'roi. 

^»r* AmSoI'Os \MS j|.fUHO-n*COL 

An«;o|)rAvS004AMSon-AMS0n0 

A^SO a A'tSOO 

^i'-sT COtiMT EACH 0FF-r.)1 A«ONAL TWICE. AMSOOD AVOIOS OOUHLF- 
fOOMINO THfc* 0IA00 3AL TEPMS. 

TOO* 

► ko 


AMSOOOlO 
AHSOOOPO 
AHS 00030 
AMS 0004 II 
AMSnOOFO 
AMS 00060 
AMS 00070 
AMSOOOAO 
AMSOOORO 
AMSUOlOO 
AMSOOllO 
AMSOOlaO 
AMS00130 
AMS 00140 
AFSOOlSO 
AHSOOIAC 
AMS 00170 
AHSOOIFO 
AISOOIRO 
AMS 00200 
AMS 002 I 0 
AMS 002 P 0 
AMS 00230 
AMS 00240 
AMSOfIPSO 
AMS 00260 
AMS 00270 
AMS 002 AO 
AMS 00290 
AMS 00300 
AMS 00310 
AMS 00320 
AMSO 033 O 
AMS 00 340 
AMS 003 S 0 
AMS 003 SO 
AMS 00370 
AMS 003 A 0 
AMS 00390 
AMS 00400 
AWS 00410 
AMS 004?0 
AMS 00430 
AMS 0044 U 
AMS 004 SO 
AMS 004 A 0 
AM 500470 
AMS 004 A 0 
AMS 00490 
AMSOOSOO 
AMsonsin 
Af^snospo 


AMSG0S30 

AMbOOS40 


( 

< 

( 

( 

( 

( 

( 

< 

( 


PII.F* APOIOR FORTRAN A 


FUNCTfUN APRIORCKU 


C 

C 

f 

f. 

C 

C 

r 

f 

f 


T^^IS POUT INF CALCULATES THE APPIORI PPORARILITV FOR THE 

45 OISPOSEO TO ITS TWO SURCLUSTEgS KI.ANO L 

»OH A0 1 L IT Y . C ALCUL AT|P_MAS..NOf MlNO_ TO. OQ . MIIH . JHE 

|r rl 


i miiiHShit 


KB« 


OATA« HUT CONTAINS ONI 
CLUSTFWS. IF APRIOR 
THEN THE ALHOHITHM tfl 


LV tME USERS* BIAS XN FAVOR 
.is.SEI^TQO iBRBE IVHFRE 


EPT Fur EXTREHELY STATISTlCALLY_SENSITiyE_PROBLEHSt_ 


ANY CLUS 


OR OF FEWER 

mhip 


LARGE I 


NOTHl'^qfu^T 



s’Inyhon. 


'SI4rvSJ5r8F-IpSI8|'?i‘iOV^ 

^XVLfWFACtNPTSOtPQRATHtSPMVTHvDWFACtGRACTPtAMpFACt , 


APRiOR HUST RE POSItVvE# TYPICALLY 
OIHENSTON HXARm>«LRn>ALyi3 

CUHHON * 

1 AHO. _ 

% * AMOM I' N Va hum A’X t AMOR A T V VOLL 1 M • B I AS f PU6 i N • VP jO I N t W S I M i WOEL SH * 

4» HETTFMtMOOEtCORLENfSPCOR 
APR10 RbVFAC*AM0«HIAS 
RETURN 
FNf» 


APROOOlO 

APR00040 

APROOOSO 

APgOOOGO 

APR00070 

APROOORO 

•APR00090 

APROOlOO 

APROOIIO 

APROOiSA 

APROOIaO 

APROOUO 

APROOiSO 

APR00160 

APR00170 

aprooIbc 

APR00190 

APR00200 

APR00210 

APROOEPO 


I 

( 

( 
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FUttTWAfi * 


Fftri CL*SV 


r 


c 

r 


( OMH . . 
rfNMON 


IT iNTFfifW (A<-K) 

N /HAMD/ NX 

/lNfO»M/MtAl>(4?># HAPTAP* nATAPF* 

PAP$!?« TAPCHX, TPNSVN, 

nilP5V^4* THP|Y*4f MAXniV* 

SPHIAL# TAPFSV# PILFiv* 

MAXCLS* NACLS?* MAXFtn* 

NOT»Ff>* NOF|AT« NOFFTP* 

VAWS7P* VAkS2A* XSI7 * 

N06PP* OIVSIZ* KFFPtVt 
KHftH • XLOW « SPCPAS* 


fsTsyS! 

MINDIV* 


NOCLS.If _ PCTSI 


•••••♦•CLAOnOlO 

CLA00020 
CLA00U30 
CLA00040 
»1AXFFT*CLA000S0 
CLAOOOAO 
SPLNAX«CLA00070 
CtAOOOHO 
CLA00090 
CLAOOlOO 


NOFl.D3«( 


C 40» •PFTVFC(30),FFTVC2(3P» t HlSVFCno) t IMVEHTOO) •aESTVCOO) 


C0Mf40N/CLUST!^/ 

?f scPA^r 

'U WAXHF* 


IhFGINtTOTWOOtCLSNAPtIPTfNOFLO* SYNCAl) • 
LNCAT* PHNT(4) • KLPC . PPTMf, PPOUTt TOTPIX* 
M UFP 1 Jf , HI»F T OT t NPOFSD • NOOMP , L PUFO 
AkFAt NwOS* NWONS* NPTSt I.HMF* iQltNOCVCL 


tMTFGFM TOT ‘.Kn,s*VM,P9NT,P«Tw€tPPOUT*TOTPTX#SCWAMl *HUFPIX*HUFTOT 

I fCLSNAM 

fOMMON /AWHAY/TOP* APPAYMFOftO) 

Tm>I(» SMOOI.D EfJtlAI. VALUF FO« NAPFA IN C«LO 

♦> I PKMS f ON»* n ) • POP A T n > • VOL f N ( n f VOLKT ( 1) . or ON n » . PPASS < 1 ) •PCONO ( I ) 
• IMf NSTON m f lOAOJ m • INDEX f I ) *l $UPF» ( I » .NS /MP ( I > 

nf MF N5; I uN V -» 1 N ( A 7S ) . GFN ( Q9Q ) • GPFF < 999 ) • OOF W 1 1 ) 
n i«FNs TON pm ( n •Pni9 
DIMENSION PPIPCMdl* 
rOMPON/LLOS/ JUNK n?» 

OIPFNSfON MKAPdl ) tLP<3) •LV(3) 

P«"tIVAl»ff (LP(n*LVPlNl*(L9(2)»LK0PT). . ^ 

\ ILP(3) •LOVAfl) * (LVn» •LSDM) • (LV(2) .LSKFW) • <l V( 3) •LOSUM) 


»HFNf99«»| I99PJ •dUpNI I I 

i9(i) •nissn ) *«Ar»j(i) •oppopd > tOM(i)«sPFAcn > 
.oppiopu » •ppop(i) *ciNn I *rTCT ( u ♦ociniu 

\?) •NAPL*NTOP*NTP97M,NVANT*L’.NKnAOOO) 


C, 

r 


r 

r 

r 

r 

r 

r 

r 

r 

r 

1 1 

C 

r 

r 

c 


rO'^*MOw /PiSf / POfPMfLPtLV^NINCLS^MiiAPtWT lN!T*K«OOT*EPS*nELT* 

\ AM(»*OOC ()N*XOVFLO*XMNFLO.WADJINtELIMTH*Sf PTM*WFACfAMM*SHLTHf 
II OXVL.wF AC*NPTSOfPtiPATH,SPMVTH*DWFAC*6PACTM*AMOFAC* 

■t Ai'lOPlN#AMnMAX*AMnPAT*VOLLI»«*rtIA9*PJOTN*VWJOINfWSIM*W()ELSMt 
A HI: TTFW* AonF*rOHLFM*SPCOP 

^ I MENS TON P«rCI-L (2) *9 ACCEL (2) *VACCeL(?» 

rOMPON /STP&P/w)AIT *CO yLV*SKHND»«*KCHI ,TP«NI)*TPCMI ♦OWKHNO*UPKf;HI , 


1 


PArrFL*NACCFL*VArCFL 


IMITIALI/F hANOOP NUPHEP OFNFPATOW 
wX » 0 

CFT NO OF TTF PAT IONS THHOilOH TOTAL DATA TO 10 AS A DEFAULT VALUE 
MUrVCL a 10 

TOP = iHfii'O 

pf^'F/.O HUFFFP 
FAIL PFwFAO I?n,p0) 

FAi.l SFTUPO TO PFAii input CAPOS 

CALL S^TUPP 
1 FOPmaT (lOAA) 

TAM. PFAOTP TO Pfc AO CLASS AND FIELD DEFINITION CAPOS AND TO HEAD 
TH^ F TELUS OE UlTA EPOM THt' IMAGE TAPE AND TO STOPF DATA ON UPUM 

MU IS = TOTAL NO, POPOS AVAIL ON DPUM 
m call PFAl)TPa/<ST«LTNK(200) .TOPTO) 

SFT POINT COONTFPS 
Pt^TPE *1 
pwOijTsl 
tNCAIsn 

CALL «ULTT TO pfoPm CLUSTEPING 
Tup s IP ()(»{> 

CALL multi ( APPAVITPn 1 


(SFF CALL TO PINIT IN PEAnTP) 


POINT CLUSTEP 
MAP = 1 

CALL CLUSmP (MAP) 
tf(last,nf.u to 10 


ORIG8NAI, S: 

OF POOR QOAimf 


CLAoono 

CLAOOIFD 

CLA00130 

CLAOnUO 

CLAOOISO 

CLAOOIGO 

CLA00170 

CLAOOIBO 

CLA00190 

CLA00200 

CLA00210 

CLA00220 

CLA00230 

CLAD0240 

CLA002S0 

rLA00260 

CLA00270 

CLA002SO 

CLA00290 

CLA00300 

CLA00310 

CLA00320 

CLA00330 

CLA00340 

CLA003S0 

CLA003IS0 

CLA00370 

CLAOO30O 

CLA00390 

CLA00400 

CLA00410 

rLA004?0 

LLA00430 

CLA00440 

CLA004S0 

CLA00460 

CLA00470 

CLA004G0 

CLA00490 

CLA00600 

CLAOOblO 

CLAO0S20 

CLA00S30 

CLA00540 

CLAOOSSO 

CLA00S40 

CLA0OS7O 

CLA00580 

CLAOOSSO 

CLAOOSOO 

CLA00610 

CLA00620 

CLA00630 

CLA00N40 

CLA00650 

rLA00640 

CLA00670 

CLAOObflO 

riAP0690 

CLAO0700 

CLA00710 

CLA00720 

CLA00730 

CLA00740 

CLA007S0 

CLA00760 

CLA00770 

CLAU07RO 

CLA00790 
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ritn fLusv 






( 

( 

i 

•( 
. ( 
( 
( 
( 
( 
( 
( 
( 


STOP 

FNO 


CLAOOaOO 

CLAOOOlO 
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TW|^ t^OMTINF P**fNTS OUT ALL THf CLASSfS VIA »OUTIN£ »CLPP*« 

I * iLSUPKM i ?9 1 1 IDAD J 1 2B I •NSVMR 1 1 2) • 

I •CTOT (23) •PPOP<22) •SP»> AC(?1) • 

i •own?) .voLiunA) • volrtus) •oconuai , 

1 n 2 uiXi) 2 ! •PPASSC 12 ) tPSTCl n fOCINUO) .PCOMOIT) • 

A 0PHI0PI9I 

Ol'’eNSfON VM!NIA?9> 1994) •ALIUK(l) 


1»» 


fUU 

roll 

)><4U 

<L 

<L 

(L 

It 

It 

a 


VALFMCK 


(L ( i ) • AL INK < i ) r«TL INK ( M ) TiNDEl '( 27) ) 

Xj^lVpAkvBSlHl ^ * <1. INK 13! ) 9inAliJI2ft) ) • 

UK (at ! JumSa)?! ^ aiNM3| ?!cfo?V23M 1 * a INKISlfipROpISS?)?**’ 

• * (LINKI31)#KADJ(20) )• (LINK(31)iK( 19) ) t 

Igii: ll:i«!:!?l!:??«58!i? 


CLDOOOIO 

CL000020 

CLD00030 

CLOOOOAO 

CLD00040 

CLD00040 

CL00Q070 

CLDOOOAO 

CLD00040 


CLOOO 
CLOOO 
)*CL''00 


ctuoono 


NK(. 3 i)* 0 l 5 SCI 2 ) J, (L|NKni) 9 PPA 5 S(i ?))9 (L fNK I SI ) *PST ( 1 1 ) ) t 

(LiNK(3T)9y»iN(7) > ♦ 
•OPRToP( 9) )• alNK(31)9ODEN(0) )« 


r 

f 

on 7 A 
2)0 


ci 
1 0 


1 7 
1 1 




(m (Sp.ocfMdoni (LlNk(1 
/'OtllVALfNfK (LPO) tLVPIN)* (LR(2) 9LKIIRT) • 

1 (L«n) »LOVA>^) • (LVn ) .LSUW) 9 ILV(2) 9LSKFIN) 9 (LV( 3) 9 LOSUM) 

roMijjON /Misr/ Mo,MM9LP9LV9NINCLS9MXAP9WTtNlT9KPO0T9EPS90ELT9 
1 AMg,oi)CON#70V)>L09lillNFL09WADJlN9ELlMTH9SFPTH9VFAC9APM9SBLTH9 
> fNn^^L9t<^FAt9NPTS09PUPATH9SPM\/TH9D««FAC9GRACTM9AM0FAC9 

* 'x • A K • kMOP AT9VnLLlM9HlAS9PJ0TN9VRJ0IN9K5lM9WDELSM, 

A HETTf KfMonF,COkLFN9SPCOP 

ni«FNS!ON t^ftrrFLi?) 9 Maccel(?) 9Vaccel(?) 

rOMMON /SlPAw/wftIT9CONLV9SKHW0,SKCHl9TPHN09TPrHl9UPK«N09UNKCHl9 
\ P6CCFL.>^arCtL9VArrFL 

rOMMUM/CL<»STK/ I«F(iIN,T0TWPD9CLSNAW9lPT9N0FLn9 SYrt(Al) 9 
» , LNrAj9 P«NT(A) 9 KLPC 9 PPTME 9 PPOOT 9 T 0 TPIX 9 

P «>CPAMl,H«JHPrK9HMFT079NHUFS09N0UMp9LPUFn 
9 . maXPF, AWf A# M9«r»S9 NAr)PS9 NPTS 9 LBIJF 9 !Ql#NnCYCL 

. iNTf T0T‘v^<n9SY^*9PPNl9PWTMF9PRUUT9Tr>TPTX9SCPAMl9H(IFPlX9m>FT0T 
I tH. SNAm 

tor^ir.flt I«^HUT9lJSP 
''IUFKLsO 

KLaKLHFjj 

KLHFn9l(^r>EX(KLHEn)9LSUPFR(KLHF0) 

FuWMAT (• M.#lNnf X*LSUPER»9AT6) 

KnOTst«;i>Hl“W fKL) 

HLIN*LI».IK CM) 

PPff'T PiDtPOKXCKDfKL 

fOPMAK •lIHf'IP OF ObSFWYEO CI.USTFHS FPOMi,l39l7) 

I FWFLsO 

r^O Tti !J 

LFVELsLFYFLH 

^^SYMM IKL) so 

T i^P s IbPLH (KL) 

irnSPLlKKU ) «0 TO IP 

OOFFLsMOFf'Ltl 

^'SVMH (KL) sNOFM. 

FONT INMf. 

CAU CLPP(KLtLFVtL96FN(LSlJM) 9pFN(LSKFP) 9r7EM(LKUPT) ) 

I J‘?Ps!«;pLn (•'1. ) 

KFFHsKl 

•<LsLSUPS(<L> 

!F(KL,«F,0.AN(),(ISPLITIKEFP).0P.PP0UT,LF.2)) go to 9 
FLsLINK (KFF>> 

IF(M.,F.}.«'LIi\) GO TO PP 
tMKU lO.i'P.lO 
fL=L«OPFP («FKH) 

LFVFLsLt YFL-! 
klfp sKL 

TF (kL.'iF.KROT) (iO TO 17 
PF TIJPf 


00 

10 

20 


AO 

%0 

AO 

70 

AO 

90 


C 

CLUOO 
CLOOO 
CLOOO 
CLOOO 
CLOOO. 
CL000200 
CLO002I0 
CL000220 
CLU00230 
CLO002A0 
CLD002G0 
CL0002AO 
CL000270 
CLOOOPflO 
CLD00290 
CL000300 
CL000310 
CLD00320 
CL000330 
CLOOO 340 
CLO003S0 
CLD00360 
CLt)00370 
CLO003H0 
CLD00390 
CLDOOAOO 
CL000410 
CLDOOApn 
CLD00A30 
CLD00440 
CL000450 
CLOnOAGO 
CL000470 
CL0004PO 
CLD00490 
CLOOOGOO 
ClDOOblO 
CLUOObPO 
CLO00B30 
CLU00S40 
CLOOOGGO 
CLDOOGftO 
CLD00&70 
CLD00580 
CLO00G90 
CLDOOAOO 
CL000610 
CLOOOAPO 
CLD00A30 
CLD00A40 
CL0006GO 
CL0006AO 
CLOO0A70 
CLD00680 
CLOOOAPO 
CL000700 
CLD00710 
CL0007P0 
CL000730 
CLD00740 
CL0007GO 
CLD007AO 


“»C^, 


IH 


Jf POOR OUAl 
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. SUBROUTINE 
THI 


CLINITCKROTI 


IS routine contains the various STATI 
JnITIALIIE^THE.CLUSTFRING koORlTHM 
RCaC*A )(TfHR*VfFNFtfTEMPtOIIRN«oyRKO 


TATEMENTS NECESSARY TO 


•LSyPER(?9)«10A0J(?Al«NSVMB( 
CTOT(|3) •PROP (2?) •SPFAC(21i* 
1T» iVOLINI lA) #VOLRT < 1S1«0C0N 


NSION INDEX <27)*LSU»S<30> 

CUHf 2h) •PPIRCMiPS) fCTN(?4) •( 
vAojiPoitMfU) toNopnr 
PORATn3UnfsSU2)«HPA< 

4 0PRI0Pl9)t0DFNfP) 

DIMENSION VHINU7S) •6FN(999) «6RFF (999) «Al INK ( 1 ) 
#11 


12) 




rou 

FUU 

FOM 


?St|5S| nhiuWSU? f ^ 


VALENCE (LINK (31 )#LSUPFR (29))# __ . 
NK(3|) •NSYNHI1?)) * (LINK(3D «PCUM(26) ) 
NK (31) fCIN(24) ) # (LlNK(31)tCT' 

NH(3{)«SPFAC(21))# (LINK(31)« 

NK ( U)«OPPOP(tA) ) • (LINK(3t)#OV(17) )« 
NK( il)#VQLRT(lb) > • (LINK(31)#0C0N(14)) 
NK(3J),D|SSM2) J# (LINK(||)#PPASS( 


(LIMK(31)#IDAOJ(2A)) 

3D#PCUM(26) ‘ 

T#CT0T(23))# 


NK(3l)fOeiM()r)) )• itlNKOI) tPCONDO 
NK(3|) .OfN(7) ) • aiNKOl) #0PRI0R(9) 
-NK(31)#GttFF<4) ) 

hon/c:lus/ 


12 )) 
7) ) *1 

)• 


• (LINK(J1)#P&IRCM(2S) 
(LINKOI) ;PR0P122) ) • 

• (LINKt3l),vn9T)# 

(LINKOI). Vf 

• (LINKOi; 

(LlNKOl)#OOFN(A))# 


)fVn9T)« 

jf.P^RAtnS)) 

~\h 


(L 
(I. 

(L 
(L 
(L 
(L 
((. 

(L 

cAiiHON/CCOS/ JUNK d?) .NARLtNTOP.NTHSFMtNWANTtLINKdAAOO) 
<iIMENSTON MKAMOI ) •LH(|)«LV(3) 

EruiIVALFNCE (l.Hd ) #LVRIN) « (LR(2) .LKURT) • 

I (LM|3) #L0VA*<) #(LVd) fLSUH) #(LV(?) .LSKFK) • (LV ( 3) #LOSUH) 

common /MlSC/ Mo,MHtl9,LV.NINCLS#MXAR#KTlNIT#KPOOT#EPS#OELT# 
AM(),uoCON,xom 0.«UNFLO.VADJlN.ELlMTH#SEPT«tVFAC#AMH,SBLTM, 
tMnv .NPTcn. ATM. cuMUTu.nyp AT. AOArTM.AMnrAr. 


r 

r 


1 A<*vr i Wf I. iwin#'stri»#tvr 

2 fNDXYL.KFAC.NHTSO.PORATH.SPMVTH.OWFACfGRACTM.AMOFAC# 

3 AMOMiNf AM()MAX.AMOFAT#VOLLIH#BIAS#PJOTN#VHJOlN#WSrH#VOELSM. 

A «FTTfcP#MOOF*COPLFN#SPCOP 

rOMMO^| /STPftW/<-'A|T#CONLV#SKHND*SKCPl#TP«NO#TPCHl#OPKWN()#UWKCHr# 
1 PACCEL(?).MACCFL(?)#VACCFL(?) 

roMMOfj/CLUSTM/ IPF(,lN,TOTWPn,CLSNAMf IPTfNOFLO# SYM(M) « 

I LN(;aT#_PMNT.U) #_KLHC. • PPTMFt PPOUT# TOTPiKf 

3« 


LNCAT# PMNT<4) f KLHC • PPTMFt PPOU 
•=CWA»-1 fHO'j-PI ¥ ,HMFTOT*NHUFSO*NOUHP*I.HHFn 

APEAf NWf»^t NPTS# LHUE « IOI#NOCVCL 


iMTEftFP lUT'*Pn,sr4»PPNT»PWTMF*PPOUT#TOTPdf tSCPAMl #rtUFPIXf PUFTOT 
1 •CLSNA-' 

COMMON /INjTL/VTNfW,()FVlNI»CHANlN 
f OfVAI. (Of ) *OF« ( 1 ,-.P??/l)E .CONI V*SOPT(,??2/nF) ) **3 


WF 


10 


M IW 


VAWiODS INOFX 
CHANNELS MO. 
TPlANmAP POSITION 


ARhAVS FOP A PARTICULAM 


ARPAY MXAP. 


thf nompfr of arrays 


A MO* MO 

FIRST SET IIP 
PUMPFP OF 
l(M iHF 

MPsil 

no HI Is?,H 
MK AP d I SMM 
I 

MMsFYAP(M(.#1 ) 

amp»mm 

• £ SET i)P TMF OMOIN VtCTOPS# LR AMO LV, OF THF VARIOUS ARRAYS 
ANO VFCTOHS TN A CLUSTER NODE. 

NINCLSsl 

«•••• THIS constant most re SFT TO 

00 ?l fsl.3 
LPd)sNlNCL‘' 

^IMCLSsNlMCJ S#MM 
no ?2 T*1.3 

1 Wd)eMlNCI S 
NlNCLSsNlNCl S.MQ 
^SCALS s tih 
MNCLS*NlNCLS#NSCALS-l 

MUST ALSO SFT UP SOME THRESHOLDS FOR USF RY THF STATISTICAL 
SYSTF'«. 

SKCMf s( Af/n.p,) *(AF.(J#4,)*CHlVAL (AMO) 

UHKCHI=AM0*IAMQ#4.)*( AM0#4.) /(AHU-.9P9) *CHIVAL (AMM-1 .) 
THCHl»fOMV»CONLV*(AMO*(AMQ#?,)*(AMO#3.)*«.) 

N04 ChFaIF the head node OF THE CLUSTER TRFF. THIS IS NOT 
am actual clmstfp* and oofs not have storaof fop any 
OF THF STaTTSTICAL ampaYS. 

''hTSOsO 

KPOTsMOPSTP f NSCALS) 


3) 


?? 


•WF 




a 


00010 
00020 
00030 
00040 
OOOSO 
00060 
00070 

oooao 

00090 
OOlOO 

ooilo 
00120 
00130 
00140 
OOlSO 
00160 
00170 
00180 
00190 
00200 
OOPIO 
00220 
00230 
00240 
002S0 
00260 
00270 
00280 
CLI00290 
: 00300 
100310 
100320 
00330 
,00340 
003S0 
00360 
00370 
100380 
:00390 
00400 
;o04io 
*00420 
CLI00430 
CL100440 
CLI004S0 
CLI00460 
CLI00470 
CL 1 00480 
CL 100490 
CL 100500 
CLI00510 
CLI00520 
CLI00530 
CL|on'.40 
CLinosso 
CLI00560 
CLI00570 
CLI00580 
CLI00590 
CLI00600 
CL 1 00610 
CLI00620 
CLI00630 
CLI00640 
CLI00650 
CL100660 
CLI00670 
CL100680 
CLI00690 
CLI00700 
CLI00710 
CLI00720 
CL 100730 
CLI00740 
CL I 00750 
CL 100760 
CLI00770 
CLI00780 
CLI00790 
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f 


fll.P* CL INI T f OPTM^W k 


'^AKp„ FTPS? N0»>F St apt at an noO NUMBFP 

• IL ♦ » 

I |PK (K»(lT I ••?A2139 
L SMPFP ( KPO n «-?62 1 A ? 

TUADJtKpOTlBppPPPP 
!NOFXIKPOn«-<> 

HPF ACiSwun kSQSPP. 
t*^(KP0T)>Pl INIT 
»HMKPOT»«WIKWOT» 

PUPAT (KPOl >*0. 

HH0P(KP0T»*I. 

OPPOP(KPOT»»l. 

€IN(KP0T»«PIKP0TI 
orTN<«POT)«CIN(KPOT» 
rT0nKP0t»«0. 

• U'FNCKPUTIS'ttiRPOT) 

PHTPC^'»KWOT^*t• 

fiVtj THf ffiltm. NODK is SFT up* T06FTHFP «IT« SOMfc CONTROL 
‘iT KF TP»PO»<STP(WfNCLSI 

nn SA 

(KF|K*L0VAP* J) all. 

'»PFF(KFlP*L*<UPT*J)aO, 

WKfN(KPfw*J)an, 
nKW<>WT»Ut\/I^lAnp VINI*WT1N1T 
no ST ,1*1, MO 

OMFP (KF1h*LSI)4*j) *WT1NIT*CHANIN 
(4PCf* (KF f P*LOSUM* J) smT INIT#CHAN1N 
FL J*Kp tw*MAAP(.J*n 
*/Pf N (M.U) * 1 ./OKy^wT 
SmFP (HI. J*LOVARl sl)FV2»,T 
•',wff(HL J*LKMPT)s(MQ*?)*f>ev?wT 
hT <«MrF(KFjP*LSHFP* J) *0, 

VOLP r ( KF I P > e . RTS 7S??RF.RF- 1 3« I . SOAf*?R27S*OF V INI ) *OMO 
'/•>LlN(KFlH)*yoL»T(KFIR)**? 

V')LrfJ#F*P(Of()N)s(?*PnR*MQ#DFT<COVAPlANrFls(?*PT/*)**M(.l/OtT (VPTN) 
O(,Cf*NsM.,,*AL0G{hlTINIT)*S0. 

Of.OfKHFlKl *O0(;0N 
*> (KK Iw) smT INI T 
0 v(HFIP)swl TNIT 

<>Cl.v,(KFrP)srTN(HF I«J 
^An,j(KF IHl s-JAOJIN 


r 

r 


SHFftC (KF ipi 
popaT (RKJW) *0, 

CT07 (KF IP) so, 

OOFN (KFIh) sW(FFtW> 

PkOP(KF IP) si , 
riHROP(HFIP) aj • 

PplPC»MK*’lP) *1 • 

I IF'K(KFlH)sO 
I SMS8(KF IP) so 
I S>4PF.P(Kf IPl sKPOT 
LSI»rtS(KPOT)sHF TP 
TOTPlX s roT-'WtVMO 
lOAO J(HHP) sTOTPI)( 

T'40F:H (*^FIP) slNflXVL 

PPIT^tT ?73,NO,rnNLV*T«CMT»SKCHIfUPKCHT*KPOTfHFTP 
V7-* poPmAT (*1 ruNFIOFNCF LtVFLS»*l4*» CHANNFLS • ,F8, A, • 

1 3m. HZ' Kf)OT*,IS. » FIRST»*IH) 

WF TUPf 
FfiO 

««•«« THIS C0»''8TAfJT MUST RF SF T TO THF NUMPFP OF VECTOPS 


CL 

?}: 

a 

CL 

St 

CL 

CL 

CL 

CL 

CL 

CL 

CL 

CL 

CL 

TMRFSHOLOCL 

CL 

CL 

CL 

CL 

CL 

CL 

CL 

CL 

CL 

C!- 

CL 
CL 
CL 
CL 
CL 
CL 
CL 
CL 
CL 
CL I 
CL I 
CL I 
CL I 
CLl 
CL I 
CL I 
CL I 
CLl 
CL I 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 
CLl 


CMISOUAPFS** 


00000 

00810 

0Q8i?0 

00830 

OO8A0 

008SO 

00860 

00870 

00880 

00890 

00900 

00910 

009PO 

00930 

009A0 

009SO 

00960 

00970 

00980 

00990 


CLl 

CLl 


000 
010 
0?0 
030 
OAO 
OSO 
060 
070 
080 
090 
00 
10 
?0 
30 
.AO 

160 
170 
180 
190 
?00 
?10 
.??0 
01?30 
ni?A0 
0l?50 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
013A0 
013S0 
01360 
O1370 
01380 
01390 
OlAOO 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

oi 

ol 

0 

0 

0 

0 

o: 

0 

n 


OIAIO 

OlA? 


0 


ORIGINAL PAOf IS 

'^pooroualb^ 
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FOf^TRAN A 


r# 

CO 

fo 

r* 


r 

r 


c 

r 


ro 

r* 

r« 

ro 

r* 

c<> 

r* 


SURROUTINF CLUSMP 


KEjran^SiSkrM 

RFPRFSFNTS A CtUSTFR TYPE 
IW«»LICIT INTFOFP U-7) 

COUPON /aphay/top. array USOOO) 

?9>-C3tiio)# ournio)* flc«»# floinf<6)* 

I CLUSTNOlOU NRt*«(<>nf NRLKTCfl) 


roMMnp /oi.oRAL/HeAn(<s3r« maptap# 


RATAPFf 


SAVTAP* 


RRF 


1 nMKFY«HISFIL*HlSKFY«tRFORM«CRIPTP«FRPKFY«MAPIJRTfNOFILEfOROMA 
PAXDIV* 


? ASAVFL*NHSUN*NHSTFI f nUPSYM, TMRSYM. 


MIN 


IV 


rOMMON/CLUSTR/ IHF6IN*T0TWRnf CLSNAM* IPTvNOFLOt SVM(6I) • 

1 LNCAT# PRNTU) • KLflC • PPTME, PWOUT* TOTPIX* 

? SCR AM I • HUFP I X * MMF TOT •NRUFSO* NOUMP • LPUFO 
3* MAABF« APFA* Nv^OSf NmORS* NPTS* LBUFf IQNNOCYCL 

fNTEOEP TOTw^O*SYM,PMNT*PRTME.PROUTtTOTPlX*SCRAMl*»UFPIXfHUFTOT 
1 fCLSNAM 

niMFNSlON NTH (3?) 

n I MFNS I ON r NOF X ( ? 7 > « LSUBS ( 3 A ) f LSUPFR < ?R ) 1 1 0 AO J ( ?H ) t NS YMR 11 ? » , 

1 Pril«(?h» •PRIHCMiPS) •CINIM) fCT0T<23l »PROP(?2) «SPFAC(21) f 
? WAr>J(?0) fOPPOP(lH) «OM(17) • VOL INI) tVOLRT I iSltDCONI 14) t 

3 PORAT()3) ff)!SS(lP)fPPASSn?)«PSnil) tOCINIlO) tPC0N0(7)« 

4 OPPIOPIR) tOOFNIH) 

OI^fiNSION VPINI4 7S) •GFNI9RR) ♦GPFFIRPR) ML INK 1 1) 

FOMfVALFNCF (LINK 1 1 ) f ALINK 1 1 ) ) • ILINK (311 f IMOFX (?7) ) 

F(-»OIV/VLFWCF (LINK (31 ) •LSUPSOO) ) 

FOMIVALFNCE (LINK (31 ) •LSUPFP(?V) ) t (LINK (3) ) ♦ lOAOJIPfl) ) t 


I (LINK (31) .NSVMHO?) ) 
?, (LINK 131 ),CINI24))* 

3 (I INK(31) *SPFAC(21) ) 

4 (LINKI31) •OPWOPIIP) ) 

5 (I INK(31) •VOI.PTIIS) ) 
^ (LINKOl) ,r)ISSn?) ) ♦ 
7 (LINM31) ,OriNUn) ) 

H (L1NK(.31) tGLHIT) ) • 

N (LiNKdl) ,GPfFlH) ) ♦ 


* (LINKOI) •PCUMI24) ) • (LINKOI) fPRIHCM(2f>) ) 
(LINKOl) tCTOTIPS) ) • (LINKOl) fPROP(22) ) « 

« (LINKOI) «WAO )(?n) ) • (LINK(31) tlkdR) ) f 

• (LINKOI) fOW(17) ) • (LINKOI) tVOLINIlG) ) « 

t (L)NK(3l) *OCON(l4) ) • (LINK ( 31 ) •PQRAT ( 1 3) ) • 


(LINK(31),PPASSI12n . (LINKOI ) •PSTlin ) 
« (L1NK(31) •PCONO(7) ) « (LINK (M ) .VRfN(7) ) « 
(LINKOI) tOPWlOR(q) ) « (LINtOl ) #00EN(8) ) • 


(LINKOI) fNTPOl ) ) 


rONMON/CLUS/ JUNK (12) iNARL*NTOP*NTHSZM*NKANT#LINK ( 14000) 
DJ'^FNSION MXAPITl ) *LRO< tLVO) 

FOMIVALFNCF (LR ( i ) tLVRIN) • (LR (?) *LKURT) t 
1 (LRO) tLOVAR) t (LV(l) tLSUM) *(LV(2)*LSKFN) t (LVO) tLOSUM) 

rOMHON /Ml SC/ MOfMM,LR*LViNINCLS.MXAR*WTlNlT*K«OOT*FPS*DELT* 

1 4MO.OO(;ON*XOVFLO*XUNFLO,WAO.jilN*FLIMTH»SFPTH*VFACfAMM*SHLTH* 

? INnKVL*WFAC*NPTS0.P(JRATH,SPHVTHf0KFAC*6RACTM»AM0FAC* 

3 AMO-INfAMOMAX^AMORATtVOLLIMtftlAStPJOINtVRJOINtVSIMfVOELSMf 

4 HFTTFRtMnnFtCOWLFN.SPCOR 

COMMON /STPAR/wAITtCONLVfSKPNOtSKCMI*TRBND#TRCMl.URKBND*URKCHU 
1 PACCEt. <5>) tMACCFLI?) tVACCFLI?) 

LOGICAL NFIN 
REAL HOFFH 


F ON I VALENCE 
PRUIVAIFNCF 
FOin VALENCE 
FOUIVAU-nCE 
FOni VALENCE 
FOH I VALENCE 
FNM I VALENCE 


FI FLO 


ICOL(I.1)*ARRAY(2001)) 
lOtJT(l) fARRAVIPAnO) ) 
ICLUSTNd ) •AKRAY(2S10) ) 
(NHLM1)*ARRAY(2620)) 

INHLKTd ) *ARHAY(2730) ) 
(H(IFERd) f array (3001) > 
(FLDINFd) fLINSTR) f (FL0INF(4) 
IFLniNF(?)«L|NENn) .(FLDINF(S) 
(FLOINFO) fLlNlNC) * (FLOINF (ft) 
INFORMATION STORED AS FOLLOWS 


•SAMSTk) 
«S AMEND) 
«SAMINC) 


A*^RAYH) sFIRST FIELD NAME FOP THIS CLASS 

sNO. OF VERTICES FOR THIS FIELD (NV) 
<3)-(3^NV*2) s ACTUAL VERTEX NUMBERS 
(3^NW*?) xTOTAL PIXELS FOR THIS FIELD 
(4*NV*?)-dO+NV*2) s FLDINF block FOR THIS FIELD 


CLMOOOlO 

Etssms 

CLM00040 

CLMOOOSO 

CLM00060 

CLM00070 

CLHOOOBO 

CLM00090 

£l;88g|t8 

CLM00I20 

CLM00130 

CLH00140 

tCLMOOlSO 

CLM00160 

CLM00170 

CLMOOIBO 

CMooiso 

CLM00200 

CLM00210 

CLM00220 

CLM00230 

CLM00240 

CLM00250 

CLM002ftO 

CLM00270 

CLM002B0 

CLM00290 

CLM00300 

CLM00310 

CLM00320 

CLM00330 

CLM00340 

CLH003S0 

CLM00360 

•CLM00370 

CLM003B0 

CLM00390 

CLM00400 

CLM00410 

CLM00420 

CLM00430 

(.LM00440 

CLM00450 

CLM00460 

CLM00470 

CLM004BO 

CLM00490 

CLMOOSOO 

CLMOOSIO 

CLM00S20 

CLM00630 

CLM00540 

CLM005S0 

CLM00560 

CLM00S70 

CLMOOSBO 

CLM00590 

CLMC0600 

CLM00610 

CLMn0ft20 

CLM0063C 

CLM00640 

CLM00650 

CLMOOftftO 

CLM00670 

CLHOOftRO 

CLM006Q0 

CLM00700 

CLM00710 

CLM00720 

CLM00730 

CLM00740 

CLM00T50 

CLM007ft0 

CLM00770 

CLM00780 

CLM007Q0 
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r 

r 

r. 




INITI<^LIZE ••**» 


c 

r. 


r. 

r* 

r 

r 

C 

c 

r. 

r 

r 

c 

r 

r 

r 


r 

r 


r* 

r:« 

r« 

r* 

r<» 


c 

c 

r 

r 


r 

r 

r 

r 

i *7 

r. 


•#»*# 

tNf AT«0 

■ M''( 

e A 1 

no 

^■5 we,LKT(n «0 

C»IL WAAlMiiK rtUfFFH SlZf^ THAT IS AN FVCN NUMHPH OF PIXELS 
TOP V iHlIOtt 

MAWHI.,- »(TOP - 3IIA0 1 /NOFEAT ♦ NOFFAT 
mkmF * ma HOFFFW S17E 
MX»F*3300 


»»**««*«*« 

rtO AOO IFLOtl .NOFLO 

s»-r-'iems ALHEAOY PHOCESSFf) 

X1“Aso 

NFIP s FALSE IF OM,Y | PA OF IMFFOFO 
MFTN*,FALSfc. 

mt s NO OF V^PTICFS FOR THIS FIFUO 
NVsAPWAV ( IPT^J ) 

TOISa** = T »T^l. PUtLS FOP THIS FIELO 
TOTSAf^sAKPAY ( IPT4?4NV«2) 

MOi/F OAT A off l^ for, lines and SAMPLES 

00 30 

FLOIHf ( I ) *Ai^«>AY ( IPT*?» I ♦NV*<») 

30 rONTiNUt. 

Ml AMK OOTPOT MMFFFP 
no 40 Islfllo 
40 OuTinsHLAWl- 

/FVO COlP T OF POTNIS IN CLUSTFW 
no 4S Isl.MAXPOP 
4S NKK(T)sO 

Cp’FCF if all of n ItSTFP HAP CAN FIT ACROSS ONE f>At.fe— 0N| Y lift 
SYHpOJ S are PPINTFO across THE PAGE FOP FVFPY LINE. THF 
*vILL OPINT ThF FNTIPF cluster MAP IN lift SYMPOL SEGMENTS 

SET STAkTTNG AOOpFSS ANO ENDING ADDRESS FOP LINE 
STCLNsSaMSTR 
FNCLMaSuMEHn 

CF FOP Than Hft SEGMENTS SPECIHEO AMD RESET MAXIMUM IF 

fJFU) = FAiSE* TF 1 LINF TRUF« IF ? OP MfjPE L.TNFS 

R1 TF ( ( (FNCLM-SamSTw) /SAMINC^ 1-XTPA) .LT . lift) GO TO 8t> 

FlMCLMs (10'UXTPA)*SAMINC ♦ SAMSTR 
AFTMs.T^Uf • 


READ 1 HUFFFP OF DATA * 


T4 >0 s total words LFFT to ME READ 
TtRD = TOIwon 

PFan full RUFFFP of data unless only PAPTTaI MUFFEP of DATA LFFT 

IF ,LT. NOwPD) NOWRD s TwPO 

rRFGI^* IS hLG INNING OF SCPAMhiLED DAT A 

CALI PRFAO (IPFGIf.* HUFEW. NOWPO* DUMMY) 

At/PFSS s IRFMN ♦ MONPO 
THRO = |#PO - NO«RD 
PNFAr a 1 

SET COLUMN HEADINGS «** 

»(] rOMTI'-'HIR 

JaO 

no lOft I=SA-^STR*SAMFND*SAMINC 


CLHOOBOO 
CLMOOeiO 
CLMftOflgO 
CLMOOBli?? 
CLMftOBAG 
CLMOOBSO 
CLMOOHGO 
CLMOOBTft 
CLMOOGGO 
CLMftOPPO 
CLMftOVOO 
CLMftOPlO 
CLM00920 
CLM00P30 
CLM00940 
CLM009S0 
CLMOftPGO 
CLM00970 
CLM00980 
CLMft0990 
CLMO 100ft 
CLMftlOin 
CLMOIOPO 
CLM01030 
CLM01040 
CLMOlOSft 
ClMOlOGO 
CLM01070 
CLMOlOflO 
CLMOlOOf) 
CLMftl 100 
CLMOllin 
CLMftll?0 
CLMO 1130 
CLMftl 14ft 
CLMOl ISO 
CLMO 11 GO 
CLM01170 
CLMOl 1«0 
CLMOl 100 
CLM01200 
CLMOIPIO 
CLM0l??0 
CLM012.30 
CLM01240 
CLM0I2S0 
. CLM012G0 

P^f»GPAM CLM01P70 
CLM012R0 
CLM012O0 
CLM01300 
CLMO1310 
CLM01320 
CLMOl 330 
CLMO 1340 
Nf CF.SSPYCLM013S0 
CLM013G0 
CLM01370 
CLMOl 380 
CLMOl 300 
CLM01400 
CLM01410 
CLM01420 
CLM01430 
CLM01440 
CLMftl 4S0 
CLM014GO 
CLM01470 
Cl M0148G 
CLM01400 
CLMO 1500 
CLMO 1510 
CLMO 1520 
CLM01530 
CLM01540 
CLM015S0 
CLM01560 
CLM01570 
CLM015«0 
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FUri fLMf» 


foariiAN A 


IF( 

1ft 


•gt ( 


j* j 

C()Ln«Ji«i/ion 

coMKji«Hoo<if 


$TCLH)60 

€NCLM)GO 


TO 

TO 


100 

110 


c 

c 


1 no 


CONT?NrfF 


- 100)/10 
H00<I«10) 


lin LPTS«J 


♦** WRITE HEAOIMOS 


0* 


T?0 

HOO 

Sin 

r 

r 

r 

c 

c* 

c* 

r 

90^7 

r. 

c 


WRITE (A, 50(0 

wwfTE(n«HfAn) 

WRlTE(At510»AWRAY(IRT» »TUTSAM 
WRTNT COLUMM >^IJ»tHFRS FOR CI.USTFR MAP 
on i?n i«i*i 

WWTtr (A*5«»0» <COLCI#J) «J*1«LPTS> 
i»M?TE (A**»(MO 

format (/> 

FrtUMAT (//PX*A#<*//* TOTAL NUMPFP 
format (9Xf 1 mil ) 


OF POINTS IN THIS FIELD»*I 7 ) 


r 

c* 

r* 


r 

c* 


c 

r<» 

r* 


0 

c. 

r* 


r# 


r> 

c« 

r» 


PROCESS ONE LINE OF DATA ♦**•** 


no 300 LINE*I I^»STP,LlNENDfUNINC 


Call FfILiNT TO OHTAIN FIELO INTEWSECTIONS 

(IPT^ 2 ) tNV*FL*LINE* 

- . iMINC«SAMFNO«NOFFAl • 1 

format ( tCL»»SWP NI *SAMSTW#SAMINCfSAMFNOfNOFFATt IE;iH*FLUrfFL (?) •♦CLMO 


CALL FOL INF (ARRAY 
WRITF (3,9957) ‘ 


2*.Ny.fL.LINlJS«PS.5?? 

NI tSAMSTRfSAMINCf SAMFNO.NOFFAT, IE, IH#FL U ) #FL (?) CLMO 


1 /• 9l7) 


CLM015RO 
;LM0 600 
LMO v!0 
iLMO *0 
CLM016S0 
6AQ 
650 
660 
670 
600 
690 
700 
710 
7?0 
730 
740 
750 
760 
770 
TOO 
790 
000 
810 
8?0 
030 
640 
__ _650 

CLM01860 
R70 
880 
CLM01890 


LM 

?LMO 

CLMO 

CLMO 

CLMO 

CLMO. 

CLMO} 

CLMO 

CLMO^ 

CLMOi 

CLMO 

CLMO^ 

CLMO} 

CLMO 

CLMO 

CLMO 

CLMO 

CLMO 

CLMO 

CLMO 


no ?oo 

MOFXsO 


pwocess EACH intercept 


CLMO 

CLMO 


900 

910 


)40 

141 


mo 




SAYfJ THf 8 FGINM 1 N 6 ANf) END NtiMRFWS OF THIS INTFWCEPT FOR ARRAY 
WHTCH Is printfu 
T w s(FL(n-SAMSTR)/SAMINC ♦! 

IF s(FL(mn-SAMSTR)/SAMINC*l 
•RTTF ( 3 , 9968 ) 16 , IF 

IF (M(»|i(SAMSTR,SAMlNC) ,NE, MOD (FL (I > •SAMINC) ) IB slB *\ 
TMPTSs(IE-IH* 1 )#N 0 FEAT 
IF(Ih . 61 , IF )TNPTS *0 
IF (18 ,(iT. IF ) 80 TO 140 

C’MFCK IF I.^TFRCFPTS ARF: WITHIN PWINTOMT LIMITS 
IF (FL(T) ,bT, fNCLM) 8 U TO 140 
TF(FLn*l) ,LT, STCLM) 80 TO 140 
HO TO ISO 

THFSF CrtHOS ARF USFO TO SFT UR THF OUTPUT FOR BLANK LI NFS OR 
SPACES OR A‘>FAS OUTSIDE OF PRINT LIMITS 
rOMT INUE 
IF tl*\ .NF, NI) WRITF ( 6 , 141 ) 

format UX) 

00 TO ?00 
roMTIMUH 

RfSAV)- hEOJmnINO and FNO NUMHF»S for array out if INTFRCEPT(S) 

FXrFEOS PRINT LIMIT 

IF(FL(I) . 6 F. STCLM) 80 TO 15 ? 

iMOalH 

TPa(STrLM-SAMSTR) /SAMINC^ 1 

IF (MO 0 (SA'-'STR,SamTNC) ,NE, M 0 D(STCLM, SAMINC) ) TBsIH*! 

STOPF NUNHFP OF F 7 TRA POINTS THAT ARF IM INTFRCFPT BUT ARF 
nUTSIOF THF P»TNT LIMITS ON LEFT SIOF 
NOFXs ( IM-IHO) *K- 0 FFAT 
PUFAOsBUF A o^NOFX 

IF(Fl (mi) .OT. ENCLM) 1 Es(FNCLM-SAMSTR)/SAMINC ^1 


SET PRINT Livns IN 

110 On ANOTHFP pass 

Ipsm-XTPA 

TEsIF-XTpA 

IF( IM ,b| . ) GO TO 

HSFTs=TF-Ii*t4l 


THF J -110 LIMITS 
THROUGH THE DATA 


140 


WHFN THF numbers WOULD 


CLM01920 
CLMO 1930 
CLM03940 
OUTCLM01950 
CLM0I96O 
CLMO 1970 
CLM019B0 
CLM01990 
CLM02000 
CLM02010 
CLM0?0?0 
CLM02030 
CLM02040 
CLM02050 
CLM02060 
CLM02070 
CLM02080 
CLM02090 
PLANKCLM02100 
CLM02110 
CLM02120 
CLM02130 
CLM02140 
CLM02150 
CLM02160 
CLM02170 
CLM02180 
CLM02190 
CLM02200 
CLM02210 
CLM02220 
CLM02230 
CLM02240 
CLM02250 
CLM02260 
CLM02270 
CLMO220O 
CLM02290 
CLM02300 
CLM02310 
FXCEFOCLM02320 
CLM02330 
CLM02340 
CLM023S0 
CLM02360 
CLM02370 




FII »i : rL»*f* 


NPNTS«NSfTS*NOrpAT 

IS»» rOMTiNUfc. 
r# 

C# CMFCK if WFFOfn UATA IN THIS INTEHCEPT IS IN TWO HUFFFH5 
r# 

IF <HUFAO ♦ MHNTS .LE. N0W»D) GO TO ITO 

r 

c 

r ** CO^'HLFTF UMF IS NOT IN HUFFFH ** 

0 

C fs ONV Of TN CUHPFNT HUFFEP? 

HIFF * /»!> - NOwn 

IF (HUFAn ,1 T# NOFHf)) GO TO 1ST 

r, , 

r MfVM^ Of C«IhHFMT line IS IN BUFFEK* SET NFW HUFFFP POINTEP TO 
r CHIP OVEW FXTHANFOUS POINTS 
AOPFSS » AOtiFSS ♦ DIFF 
Thtpil r TW»-0 - niFf 

PUF40 s 1 
GO TO 

r «OwF OF COWWI-NT OilFFFW IS NFEOFO* HOVF IT TO HFGTNN|N6 OF HUFFIP 
IST KOUCT = NO'VPM - hUFAt) ♦ 1 
'H> IA.fl I s 1 ,hOUNT 
HtKFPn) s HHFFMftllFAO) 

IfrO HitFAO 9 HUFAO ♦ I 

r «FSFT b(IFFf< aOPFS TO FNO oF 01.0 DATA 

POPA|i s H00f''T ♦ 1 

r 

r HftTa INTO ^^AwiNHEP OF HOFFFP 

1((.S hOW^O s 'lAXPl.tf - HOFAf) ♦ 1 

IF (TwpO .I.T. NOWPO) NOWRO * TWPO 

CAM. kPKAi)Ur»PFSS*POFFW(RliFAO) •NOWWO.STATJ 

'^|)WFSS * AOkFSS ♦ NOWRO 

moo = Twwl) - MO»i,R|t 

kOFAO 9 1 

r 

r* CALL Cl (1ST TO OHTAIN THE CIUSTEP SUPSCRIPT SO THAT THF CLOSTFR 
r« SYMhOLS can HF COFPUTFD FOR F.ACH SET OF FL*S WlThlN THE 
START (SICLM) AND f-MOIFNCLM) 
l?r roNTiMOF 

o*iS« FMp^AT ( » IH.IF*CUjSTN 1-I0*f?is,/,10I7) 

CaU CMISI CHUFFR(HOFAn) ♦ NSFTS* CLUSTN, KLRC. GEMLSUMI) 
r 

l.sO 
r # 

STORE SYoroiS FOR OUTPUT 
Ou in k = H,IF 
Lsl ♦ i 

NUHsCLUSTMUJ 

SFT SYHOOL — ThF SURSCRIPT FOR SYM IS OfSFT TO 1 THROUGH HAXPOP 
MTF'^R s NSYRR(NUM) 

JsM(ir>(NSYRR(NUH)-l *MA^<POP) *\ 

IF ( J .L»-. n ) J s 47 
LNCATsM^XO(lNC«T*J) 

OUT(F)aSYN'( U 

SAVF THF ImJi^hFR of pixels ASSIGNtO TO THIS CLUSTER 
I 7? MRLH UJ =NHL*< ( J) ♦ I 
r 

ISP MUFAO = PUFCT ♦ NPNTS 
f 

?00 roNTiNUF 
r : 

<00 rOMIlNUF 
r ■ 

r FMO OF GENERATION OF LINES FOR I PAGE ** 

r 

C CHECK FOR aUOITIONaL PAGFS 
IH.MiT. nFTNIGO to 400 
C 

r fOiLTTPLF PoGFS. RESET HOUNOA'VTFS 
XTRAs(F <CLH-SAMSTR»/SAHI nC ♦ 1 
*^TrLMsENCLP^I 
FNrLN=s«MENn 
MFTNs.EaLSF • 
r 

r GO To PROCESS AnolTIOMAL PAGES 


CLM0?3«0 

CLH0?3Q0 

CLM0F400 

CLM024I0 

CLM0P4P0 

CLM02430 

CLMOP440 

CLM02450 

CLM024GO 

CLM02470 

CLM0P4R0 

CLM02490 

CLM02S00 

CLM02510 

CLMO2520 

CLH02S30 

CLM02S40 

CIMOPSSO 

CLMO?S<SO 

rLH02h70 

CLROPbPO 

CLH0?S90 

CI.M02N00 

CUHOPhlO 

CLHOphPO 

CLM02610 

CLM02N40 

clmoprso 

CLM02HG0 
CLH02G70 
CLMO^bPO 
CLH0P6SU 
CLHC?7n(t 
CLM02710 
CLM02720 
CLH02730 
CLM0P740 
CLM027S0 
CLR027G0 
CLH02770 
CLH027S0 
CLM027Q0 
CLM02800 
CLH02F10 
CLH02H20 
CLM02830 
CLH02840 
CLM02HS0 
CLMOPHGO 
CLf 02870 
CLM02880 
CLM02P90 
CLHOPROn 
CLM02910 
CLM029?0 
CLM02930 
CLM02940 
CLH029S0 
CLM02960 
CLM02970 
CLM029R0 
CLM02990 
CLF03000 
CLM03010 
CLH030P0 
CLM03030 
CLM03040 
CLM030SO 
CLP.O30SO 
CLM03070 
CLM03080 
CLM03090 
CLMC3100 
CLM03110 
CLM03120 
CLM0313O 
CLH03140 
CLM03150 
CLH031E0 
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Plifl CtMP 


f> OUTRAN A 


fiO TO ?/ 
4(M» COMTiMUt 


*♦ FNO OF CLUSTER HAP 

*• PWraT COUNTS •• 

no 46S I*l*M4XPOP 
4AA NPLKT(n>N«LKT(n*NHLK(n 

«RTTtlft*S70) 

FIFL0./3«..CLUSTEP.. 

LNCATaNUU<LNCAT*l«HAKPOP) ♦! 

l»0 SMjy |>1«LNC4T 
son «<hITF(«)«S 90) IfSYM(n«HRLK(n 
S90 P09MAT(AX«I?*10X«Al«7Xf IS) 

rPTsIPT^^^NY*!? 

Ano CO»*TINUf. 

WRITE (A.Hfc AO) 
w9TTE(3*7SU)LNCAT 

7SO FORMAT (//• TOIAL niJMRFW OF CLUSTERS ■••H) 

T(>TWTS*TUT*iR|j/NOFF AT 
V<RITE(4,7A*0) TOTPTS 

7*>0 Fn»MAT</» TOTAL WUMSeP OF POINTS «*tlS) 
wPTTf (4*770) 

/7n FORMAT (//• ri.dSTM SYMPOL POINTS IN CLUSTER*) 
no 77S Js)*|NC7T 

77S wRITF (4,7«0)./*SYm< J) .NRLKT ( J) 

7A0 F((«NAT(4X.I?iOX,41*inx,I7) 

RfcTUPN 

FMO 


CLM03170 

CLH03180 

CLMOllPO 

CLMOSaOO 


CLH03PS0 

CLM03260 


CLN03300 
CLM03310 
CLM03320 
CLM03330 
CLM03340 
CLM033S0 
CLH033A0 
CLM03370 
CLH033P0 
CLM03390 
CLM03400 
CLN03410 
CLM03420 
CLM03430 
CLM03440 
CLM034S0 
CLM034A0 
CLM03470 
CLH034RO 
CLM03490 
CLM03S00 
CLH03510 
CLM035P0 
CLM03530 
CLM03S^0 
CLM03550 
CLM03560 
CLM03S70 
CLM035R0 
CLM03590 
CLM03600 
CL HO 36 10 




. B-21 






SURHOUTlNff CLPVCKLf ir..SUM*SKFW*KU»T) 
r THIS mum r4F HW^fTS OUT AU. THE VARUHLFS HFLONGINO TO SOMf 
C CI.ASS IWAfO NV KL. 

• ni'«FHSION NT»*<sa> 

niMfMSKN lMnK«C?7lfl SUHS<30)*LSUPF»(?Q)*inAOJ<2«»tNSVMHU?>* 

1 HCUMl?h) ,r.iN(?A> #CT0T(?2)*HH0H<22» •SPFAC<?n* ^ ^ 

? >»A0U<?0) •OR»OP( l») •OWU7) •VOLlNn^) •VOlRTtlSI fOCONHAI • 

T MOHATI 13> *n|ss( |?» •RHASS(1?)«PCT nU«OCIN<IO)«PCOlMriC7) • 

4 OP«IOP(<»)fOnfN(M) 

OIMFHSIOH ymK(<i7S»*OF'4(*>9S)*GWFf <9SQ •ALINKM) . 

foiiiVAiFHrK aiNKi n tALiNKcm • (Link ( 31 1 •iNOKX(?n i 
fOUlVAUNCfe atHK(3|» .LSUPSOOn . 

rWMiVAUwCt (LINndl) ♦LSUPEW(2‘»n ♦ IUINK(3n»lOA()J(2«n*,^ 

1 (LINK(3n*NSVMH(l?n* (LINK (31 1 »PCUM(?6) ) * (L INK ( 31 ) «PHlHCH(2Sn 
? (LINK(31»fClN(24)»* (LINK(31)*CT0T(23))* (L INK ( 31 ) ,PR0P(22) » • 

3 (riNK(3n*SPFAC{2l))* (LINK?31) *KAOJ(?0) ) • (LINK (31 ) ( 14) ) • 

(LINK(31) tOPPOP(lH)) • (LINK (31) •ON (17))* fLlNK(3l);yOUN(i(S )• 
(LINKOI) fVOLWT(lS) ) • (LINKOI) tOCONdA) )• (LINK ( 31 ) ,£04(11 ( 13) ) * 
(LiNK(31) ,0|SS(1P) ) • (L1NK(31) fPPASSd?) ) • (LINK (31) ,£17(1 1 ) • 
(LINK(3l) ,0CIN(l0) ) • (LlNK(li) ,PC0Nn(7) ) • (LINK ( Jl ) ,VPIN(?) ) • 

(I INK(3l) •r,e:N(7) ) • (LINKOI) ,OP«IOP (4) )• (L INK ( 3 1) *OOFN (8) ) , 
(LlNK(.n) ,6 PFF(h) ) • (LINKOI) ,NTB( 31)) 

f OM>^0N/CLUS/ JUNKd?) •NAPL,NT0P,NTRS7H,NWANT,L INK (14000) 
OOFNSION MXAPOl) ,LP(3) •LVO) 

Ff»NIVALFNrE (LP (1 ) ,LV«IN) • (LP ( 2) *LKUPT ) • ^ ^ 

I (L«(3)*L0yAP),(LVd),LSUH),(LV(2),I.SKFK),(LVO),U)SUM) 

(O^^nON /HTsr/ W0,MP,LH,LV,NINCL8,MXAP.WTINIT,KO0UT,FPSfDELT, 

1 Ap«0,<IOCON,Xf)VM OfXUNFLO,WAOJlN,ELlMTH,SFPTa',VFAC*A«MfSBLTM* 

/ IN0XvL»kFAC,NMTS 0,P0HATH,SPMVTH,04FAC,0»ACTM,AM0FAC, 
i AmOM I N . Ar^04 ax • AMOW AT, VOLL I H • h 1 AS • P JO 1 N , VP JO I N • MS I M « WDfcLSM • 

4 hFTTtP*NlOh‘,COPLEN,SPtOP 

^0NM0^< /STPAO/WAn,CONLV,SKHND,SKCHl,TPHM0,TPCHI,UPKRND,UPKCHI, 

I PaCCFL (?) ,MACCFL(?) fVACCFL(?) 

«LAL KTkMH(30) 

>ML SUMd ) .SKf^Wd ) ,KU«T (1 ) 
ff AL AMEAN(l^) ,UMFANd6) 

IF(KL,F(),0) WKTUHN 
RPPail, 

I.PCC«LS(iPF«(KU 
IF (KL .FO. lO) LPCC s IIP 
IF (KL ,eO* U4) PPP = 0, 

TF(KL ,NE. UP .ANn, INDEX (KL) .Nfc ,0) PPPsPOOP (KL ) /PKIRCM (LPCC ) 
PRINT ini,F», IMDI- X (KL) ,PRR,W(LPCC) *SPFAC(KL) *W(KL) ,OW(KL) * 

1 VAUJ(KL) •I'''A0J(kL) ,PP0P(KL) ,CIN(KL) ,CT0T(KL) ,0»POP (KL ) tOClN (KL ) , 
? ODK^' (KL) ,PQPAT (KU ,V0LIN(KL) ,V0LPT (KL ) ,r)C0N (KL ) 

(0) foOPAT ( •ftCU'STFP* , 14, • INDFX‘,14,* PROPORTION* ,F d .B, 


, ut HARFNT* .FP.3,/, • SPLIT**F11 
' t-F IfeH) •,F12.3 ,?X,*waS»,F1?.3, 
4X, 'ADJUST*, M?. 3, • ID*, IK/ 


4/ 


r 

04) R 


1 fi? 


* PR(iP6PTtnN: PROP* ,F«.S. • C1N*,FR.?,* CTOT*,F«.?/ 

OLD Pwopi ,F4.f,,* flN*,F7.?,* ODfN'.FT.?,* D If- FF.R * ,F7,?/ 

* VOLUPF* * KOOT*,HR*2,* 0rON»,FA,?) 

LPrOsL I » iK ( KL ) 

LPrOC=LsURS(KL> 

WPITF 0,PP)?) KL,LPC0,l.PC0C 
F(<PkaT (* KL,LPCU,LPCDC*,318) 

IF (LPf) .GF. n .AND. LPCOC ,GF. 0) PRINT 1 0?,KL , INDEX (LPCD) ♦ 

1 LINK (KL) »IM0FX (LPCOC) ,LSURS (KL) , INDEX (LPCC) ,LSUPER(KL) ,NSYMR(KL) 
)0? FOPMATdO LOCATION*, IS,* LINK*, O, IS,* SURS * » ! 3, IS, • SUPER*, 

) n,IS,* SYPNOL*,If>) 
write (S,Kd) INOFX (KL) ,NSYMR(KL) 

WPITF (3,103) TNOFX(KL) ,NSYMP(KL) 

format (* INOFX s *,If»,* symbol s *»IK) 

PRINT 112,PST(K( ) ,PC0N0(KL) .PCUM(KL) ,PRIRCM(KL) 

FORMAT ( *0NtT PPOH* ,F7. 2, * DIRECT * ,F7.?, * CUMS*, 

F^.?,* «*,F7.?) 


1 1 ? 


1 

*TEmP b 

IF IPCU^(KL) .L7.xrFMP,OR.PRIRCM(KL) .LT.XTF mP) 
1 PfUN(KL) ,PKlor«(KL) 

]n<4 FORMAT (T?P, 'CO'-^S'.F. 10.5, * ♦ *,F10.S,//) 

IF (INDEX (KL) .Fm.O) return 
WL(SE = W (KL) 
n(»usFs04 (KL) 

IF(INt)FX(KL) .GF.O) GO TO S 
VUSFsOW(KL) 

OwttSFsW (KL) 


PRINT 104, 


CLPOOOlO 

CLP00020 

CLP00030 

CLP00040 

CLPOOOSO 

CLP00040 

CLP00070 

CLPOOOHO 

CLP00090 

CLPOOino 

CLPOOllO 

CLP00120 

CLP00130 

•CLPP0140 

CLPOOISO 

CLP00160 

CLP00170 

CLPOOISO 

CLP00190 

CLP00200 

CLP00210 

CLP00220 

CLP00230 

CLP00240 

CLP002SO 

CLP002S0 

CLP00270 

CLP002HO 

CLP002PO 

CLP00300 

CLP00310 

tLP«03?0 

CLP00330 

CIP00340 

CLP003S0 

CLPO03(SO 
CLP00370 
CLP003RO 
CLP003PO 
CLP00400 
CLP00410 
CLP004P0 
CLP00430 
CLP00440 
CLP00450 
CLP004F0 
CLP00470 
CLP004R0 
CLP004P0 
CLPOOSOn 
CLP00510 
CLP005P0 
CLPOOb30 
CLP00540 
CLPOOSSO 
CLPOObRO 
CLPOObTO 
CLP005R0 
CLPOObPO 
CLP00400 
CLP00610 
CLPOObPO 
CLP00630 
CLP 006 40 
CLP006SO 
CLP00660 
CLP00670 
CLP006S0 
CLP00640 
CLP00700 
CLP00710 
CLP00720 
CLP00730 
CLP00740 
CLP00750 
CLP00760 
CLP00770 
CLP00780 
CLP00740 


B-22 





FILCI CL»*> 


FORTRAN A 


T»K« 0 , 

OV^KaO* 
f>0 ? faltMR 
UmaLOCKfUl) 

TRKaTRK^KUkT (KL^LOOI 
OVSKaOVSK^GRFF ILOMIM^KL* ! » ••2 


t. 


1 1 J a«!»UM* I ♦KLJ /ow <KL ) 

?RTNT_n 37 Tlf*»FAN(n ♦Ja|, 


in FORMAT! *0 MFAM f,Aj( 


• MO) 

2/(l?X*AF7.2)) 


MQSbMOAmO 
C CHAW Pf IHASSHACM 3/21/77 

t AmMfiotrrm a^ntit 

C 


LAaMOPSTRlMOS) 
lOF PEtPASSHACH 


UA 

7 


H7 

\?f) 

3ft0 

inp 


30H 

»< 

)«;o 

1 

1»>3 

\<^h 
I ISA 
!A7 

?no 

I OP 


LMsMOPPTP(Mf>S) ^ 

CAiL SOMTX (ALTMK (LHI •VPIN(KLAl)) 

Sfl*- 1 F ) • I NK (U« ) * AL I NK < 1. B ) f C VL ) 

on A Ia|*M(iS 

ALINK a.A«i*HaALlHK(LAAl-l)/WUSE 
(LA*J-P . Jal ♦MO) 

FOPMAT I • 0 COVAPIANCE • • f ?F7,2/ I 
00 7 ta2«Mp 

T NT^ I ♦ I * < AL INK ( L A ♦MO* I ♦ J-MO- 1 ) • Ja 1 ♦ MQ ) 
FOPMAT (SX* n# 2Xf 8F7.?/ C 1AX*8F7.?) ) 


t?F7:^/n2X,PF7.2)) 


fF(TPK.FO,o.) «0 TO no 
PPTMT 107f(‘?A)r.-(AI ♦I)fIal,MO) 

F0PMAT(«« SKFte(*W) •♦1X»BF7.1/(1?X#AF7.1) ) 

00 TO 200 
FONT I Mt IF 
OO 300 

tOOaLOCKU* vJ) 

MaLOlUKL 
KTFMP(J)»MJf-"!^ <h) 

PpfNT lOM. (* VKmfIJ) ♦JBI,W0) 

fOPMATMl) »0)PT(ttW) l»f?XfAFn,6/(l6KfHFn,A)) 

DO A 

fiO 30A Js),vo 
LOOaLOrKUfJ) 
tCHsLOOtKL. 

KTFMPIJ) *1* 001 (LCH) 

PPIOT (KTF»*>-(J) ♦J*lfMO) 

T F ( Oy SK . F O . 0 , , op , OPPOP ( KU • EO .PPOP ( KL) . APO • INDE X ( KL) . OT • 0 ) 
60 10 200 

PPTNT 1A3* (OMF -iNd) f IsItMO) 

F0OMAT(/f» OLD MEAN* t6Xf6Fl3,6/ (IFXySFn.fr) ) 

CALL AOHTMM TNK<LA)f6PEF(l.OyAp5K|.^l)) 

00 15a lsl**'OS 

ALINA (LA^I-n*<iUNA (LA^ I-l ) /OpUSt 
PPTNT 106* (aLlHK aA^vl-1) •J*ltMO) 

FORMAT (*n OU) C0VAPIANCF**5F13*6/n6Xf5Fn,6) ) 

*)0 167 

PPTNT (ALINK (LA + MQ*n J-MO-1 ) ♦ J*1 ♦MO) 

CALL FOFE(LA,Mn$) 

CALL F»FE(LP#MOS) 

PhToT lOP 
format I/) 
pf TUPF' 

Ff'H 


CLPOOBOO 

£bpooaSo 

CLP008A0 

ftpsSlfo 

CLP008B0 

CLP00890 

iim 

CLP00920 

CLP00930 

CLP00960 

CLP00970 

CLP009A0 

CLP00990 


CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 

CLPO 


000 
010 
020 
030 
040 
050 
060 
070 

oeo 

090 
100 
110 
120 
.130 
CLP01140 


CLPO 

CLPO. 

CLPOl 


150 

160 

170 


CLPOl 180 
CLP01190 
CLP01200 
CLP01210 
CLP01220 
CLP01230 
CLP01240 
CLP01250 
CLP01260 
CLPO 1270 
CLP01280 
CLPO 200 
CLPO 300 
CLP01310 
CLP01320 
CLPOl 330 
CLP01340 
CLPO 1350 
CLPO 1360 
CLP01370 
CLP01380 
CLP01390 
CLP01400 
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r 

r 

r 


Slif4H0UTr<^l- ClPHM(KL*tNfSUMfSKEW*nU»»T) 

#«•••*•« This MdUTiNF MUST ME COHPLILEO MSINU HF0«. •*♦## 

THIS POUTlHt POINTS OUT ALL THE VARIABLES BELONOIWB TO SOME 
CLASS INOEa^O «V KL. 
niMENSlOH NT^o;>i 

niMENSION IHr)FV<;>7) tLSimSOO) •LSUMEM(?9> • IOAOJIEB) •NSVMB(1?) t 
I HCUh<?h) . pPIPCM(pS) •CINI?4) 9CTOTf?3)»MROM(?|) «SPFAC(?1) • 

? #A0Ji;»f,l,i*nP)*oMROPnB)tOM<I7»fVOLlWC|A»,VOL«Tn5)f5CON(14»* 

3 P0MATn3» tOISSn?) fPPASSIl?)fPSTm»*OCIMIIO).PCONO(7»* 

4 OPHIOP(P) •OHFMS) 

DIMENSION WWIN(47S) #6ErM<>QP)*r,PEF|990)#ALIHKm 


FT.U 

F(tM 

FdM 


(I 

(L 

(L 

<!♦ 

a 

(L 

(L 

a 


(LINKH) «ALIHKf 1) ) •ILINFOn f IHDFX<?7) ) 


aiNK(ii) •Lsypsiaoi j 


VALFWfh 

VALf-WCF ^ 

VAI f WCF (LINK nn ,L^UPF« (?9) ) « (LTMK HU • If)AUJ<2«> » • 
tVK I 31 > •NSV»*H< ! ?n • <L INK 1 11 1 #PCOM(?61 » • CLINK 0| 1 •PPlKCM(?S) 1 
lNKC11)*rTN(?4))< (LiNKOn •CTOTCPin . CLINKCaUtPROPC??))# 

NK nn *SHFACC?1 ) ) • CLINK (31 » *«AI)J(?0) ) * CLlNKC31)#KC19n* 
NKCtD •OFSOPCIM) ) • (LINK (31 ) •OWn7)l • CL INK C 31 ) « VOLIN C16) ) « 
NKC31 1 .VOLPTCIsn . CLINKOUtOCONCUn* CLINK ( 31) t POHAT C 1 3) 
INK(3|),rfSS(i?)», CLINKC31) •PPASSCi;>) ) • CLINK(31)*P5TC11)) 
‘MC3D *driNClon • (LINKC31) iPCONOlt) ) . CLf NK (31 ) ,VRIN C 7) ) • 

► K ( 11 ) ( 7) ) * (L INK (31) ,OPHIOPCP) ) • (LINK (31 ) tOOFNCB) ) • 

-NK( 11),fiwFF(H))* CLINKC31) •NTHC31) ) . . 

fOMHON/CL'»S/ JUNK (1?) fNAPLfNTOP#NTPS7M,NKANTfLlNKC14000) 
OlMFNSfON M7AH(31 ) , LP(3) *LV(3) 

kjui Valence (lpcu«v v»in)*cl»c2)#lkunti . ^ ^ . 

I (LH( 1) *LdVAW) , (L, U) *LSUM) * CLV(?) •LSKFK) « (LVC3) *L05lJM) 


) 



r UMmON /STHA^J/^AlTfC ONL V • SK HNU • SK CH I • TPHNO ♦ TPCH I • UHKHNO ♦ UPK CH 1 , 

1 EACCM. (?) .«ACrFLC?) *VACCFL (?) 

MhftL SUM( ) ) ,SKFP( 1 ) *KUWT Cl ) 
wFAL AMfeA^'M^) ,0MFAN(14) 

PPTU^n< TF no T"ltF« OIVFN 
IFIKL.F *^. ^') mfTUHN 

rOMMuN/Cl.USTP/ THF(iIN,TOT'VOn*CLSNAM, TPT*NOFLO* SYM(61) « 

1 LNCATf PWNT(4) • KlPC « PWTMF * PPOUT* TOTPIXt 

F SC PAK< 1 • MUEP 1 *auF TOT • Um IF SO * NDUMP • L 

1* maAOF* A‘^EA. N'*r>S* NW|)PS» NPTS* LHUF* IdUNOCYCL 

fr,(TFOFP TOT-Pl'*syM,MHNT.PPTK'F.PPOUT*TOTPlK.SCPANl,HUFPIX*«UFTOT 
I *rLSNAM 

“HINT OFNFPAL INF0».;maT10N FOP CLUSTER 

PRTNT 101*IN,IUOEH (KL) *PROP(KL) fSPFACCKL) *W (KL ) (KL ) *WAOJ(KL) • 

) IUAl).J(KL^ .riN(KL ) ,CTOr (KL) •OPROP(KL) *0CIN(KL) •PORaT(KL) f 
? VOLTN{KU »VOLpT(KL) fOCON(KL) 

)f)| FOPNAT(»lirLUSTFR»#I4#» INOF***I3*» PROPORT ION* *F 9.6* 

) • SPt, ITTrN0»,F.ll,6/ 

R Sy.»,i;-*IOHT» .Fli-.l,?* , 'RAS^.F l?.3t 
3 4K,t adjust ♦,F1?,3* • ID* *16/ 

KX ♦tpHi , fort I ().'(! CIN* •fclP.S** CTOT*.Fl?.S/SKf *OLD PROP*. FR, Ft 
s • CIV*, FI?. F.* DISTINCT*. F)?.S/Sk.»VOLUmF*.E14. 6. 

^ ♦ ROOT*.E14.IS.* OCON**F13.7) 

RRU T I 1?.PST(KL> .PCONO(KL) .PCUM (KU »PP T»CN (KL ) 

? F(tCMft|(‘>* . *»-FT pROHt.Fio.s. * ni«€ct*.Fi n.s* * cums*. 

1 Fin.S.' **.F10.S) 


) 1 


RF•Tt•R^' TF f\L IS r^OOT NOOF 
TF (KL.F R.KKOJT) PF TURN 

CMC 0)-FaN AN»> a wpAFf 
TRKsO, 

OVSKst), 

00 ? 

TTP*^-.P = KL ♦ UUKd.n 
ThK = TPK ♦ KilRT { ITE-^P) 
OVSK=0VSK*wFF {LOSUM^KL-* I ) **? 
OMFAN ( I ) »(iwfF (LOSI,)'K*I+KL ) /OW (KL) 
? AivFAK (nsS.jMd.KL )/w(KL) 


CLPOOOlO 
CLP000?0 
CLPOOOlO 
CLP00040 
CLPOOOSO 
CLP00060 
CLP00070 
CLHOOORO 
CLP00090 
CLPOOlOO 
CLPOojlO 
CLPOOIPO 
CLP00I30 
CLP00140 
•CLPOOISO 
CLPOOIfeO 
CLP00170 
CLPOfllRO 
CLPOOlRO 
CLPOOPOO 
CLP00210 
CLP00??0 
CLPOOP30 
CLPOO?40 
CLP002SO 
CLP00260 
CLP00270 
CLP002R0 
CLP00290 
CLP00300 
CLP00310 
CLP003P0 
CLP00330 
CLP00340 
CLP003S0 
CLP00360 
CLP00370 
CLP003R0 
CLP00300 
CLP00400 
CIP00410 
C|.P004?0 
CLP00430 
CLP00440 
CLP004S0 
CLP004F. 0 
CLP0O470 
CLP00400 
CLP004P0 
CLP00500 
CLPonsio 
CLPOOBPO 
CLP00530 
CLP00S40 
CLP006S0 
CLPOOSftO 
CLP00570 
CLPnoseo 
CLPOOSQO 
CLP00600 
CLr iiOft 1 0 
CLP00t>?0 
CLP00630 
CLP 00640 
CLP00650 
CLP00660 
CLP00670 
CLP006R0 
CLP00690 
CLP00700 
CLP00710 
CLP00720 
CLP00730 
Cl P00740 
CLP007S0 
CLP00760 
CL.P00770 
CLP007P0 
CLPn07P0 
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fTl>* rtPWM FORTRAN A 
f PRrWT A MFANfMFANI 

^ in FORMAT 1*0 MFAN'f lRX«4l:ll*li/f l2X«5En*«M 

r. ftFT TFMRORARV ^TORAtoF 
MOS«NO»M« 


1.AaMORSTN(MR*MO) 

maRORFTR(HO*MOI 


CALL SO'^rA(ALINFCLR»*VRIN<KL*l)) 

CALL MT,MV(ALlNKaA),AUNK<LRIfALINK(LR> tCVU 

CALC A LIWK 

no fi fal*«.»OS 

A 4 LTNKa.A*I-l>aALlNR(LA«l-l)/W<KU 
PRINT ALINK ICOVAPIANCFI 

PRINT n6*(AL|NK(LA«J-n«J«l«MO) 
llA FORMAT I »0 COVAWIANCf • •RF 13 . 6 /UAX«SEia.An 

no 7 

7 PRINT 1 OS. I. (AL|NK(LA*MQ*I40»M0»I) «Jal,M(0 
I OS format cm. IS. RX .Sfe 1 3.6/ C 16X*SE1 3.6) ) 

RRIMT SFFMif 

RwTNT 107. (SKFWCM ♦!) .lal.MO) 

107 FOP^^ATMO SHFR<*My • . 4 X * 5 E 1 3 . 6/ ( 1 ?X tSFl 3 . 6 )) 


m 1070 Jal.MO 

II s KL ♦ LOCKCI.J) 

III a *<0»^TITT) 

1070 RhINT lOM.in 

JOM FORMAT (#0 «URT(*w) 


1 *f?X.SFl3.6/(16X.SFl3.6) ) 


no « fse*,MO 
f)0 0 ,j a l.^'O 

II s XL ♦ LOCKCI .J) 

III s KmRTCII) 

0 RHINT loS. Ill 
C 

ISO IF COVSR.FO. 1.) no TO ROO 

r 

n 

PhINJ \ 63. (OmF AN( I) .1*1. MO) 

1^,3 FOPMATC* OLO mFAN». 6 X.SF 13 . 6 /(| 2 X«SE 13 . 6 ) ) 
r 
r 

CAI.L SomTX (ALINF (LA) . S«FF < LOVAR.KL ♦ 1 ) ) 
r 
(• 

on 1 S 6 lal.MOS 

isn AI.T^'K(LA♦i-1 )aALINK(LA.r-l)/OW(KL) 

PRINT 166. (ALT NK (LAtJ-1) .ja) ,MQ) 

IfA M>RMAT(*0 OLO C0VAWIANCF».5El3.6/( I6X.SF13.6) ) 

r 

r 

(H) 167 

^67 wwinT )aS,I,(ALlNK(LA*MO*I*J-M(5-l).Jal»MO) 

r 

r oftirn storagf 

r 

r 

;*oo CALL fPfF(LA.MnS) 

Call FRFE(L«.MOS> 

RRTMT 1»S 

106 format </) 

Pt TORim 
FNO 


ctpoSSio 

CLP009A0 

CLP00950 

CLP00960 

CLP00970 

CLP009R0 

CLP00990 

CLPOIOOO 

CLPOIOIO 


CLPO 0?0 
CLPO 030 
CLPO 040 
CLROIOSO 
CLP0I060 
CLPO 070 
CLM01080 
CLPOioRO 
CLPOllOO 

CLPO no 

CLPOllRO 
CLPO 130 
CLPO 140 
CLP01150 
CLPO 160 
CLPO 11 70 
CLPOl IBO 
CLPO 190 
CLPO 1200 
CLP01210 
CLPO 220 
CLPO 230 
CLP01240 
CLP01250 
CLP01260 
CLP01270 
CLP01280 
CLP01290 
CLP01300 
CLPO 310 
CLPO 320 
CLP01330 
CLP01340 
CLP013S0 
CLPO 360 
CLPO 370 
CLP013P0 
CLP01390 
CLP01400 
CLP01410 
CLP01420 
CLP01430 
CLP01440 
CLP01450 
CLP01460 
CLP01470 
CLP01480 
CLP01490 
CLP01500 
CLP01510 
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FTl»jl CLUSMP* rOUTKAN A 


C* 

f# 

r* 


r 

f 


r 

r 


r 

r 


r* 

r* 

r» 

r* 
r « 
r* 


SUnMCIUTINf fNUFILEI 

TMF PO»PO!»t OF CLUSMP IS TO PRINT THE CLUSTER MAP* THE CLUSTER 
MAP HAS EACH PIAFL HEPRFSCNTEO MV A SYMBOL* EACH SYMBOL 
REPRESENTS A CLUSTER TYPE 

IMPLICIT INTFOFR lA-ZI 

COMMON /ARRAY/TOP* ARRAY UAOOO) 

»>1mFNS10N IPFEAT IP) 

OlMFNSfoN HUFFRin* CnLI3«110)* OUTIllO)* ELIA)* ELDINEI6)* 

I CLUST^*mn)* NMLHIAD* NRLKTIAl) 


COMMON /fitOHAL/HLAOIAS) • MAPTAP 


I 


OATAPF* 


SAVTAP* PMFIL 


1 «MK^V,HlSEIL*HlSkEV*TREORM*E.RIPIP#CRPKEV*MAPUWT*NOEILE*DRUMAO* 
? ASAVEL*MSUN*NhSTFI « OIIPSYM* THRSYM* MAAniV* MIN 


SYHI61) t 
PWOUTt TOTPIX* 


COMMON/CLUSTR/ lPEOlNtTOrWPO«CLSNAM* IPT*NOELD* 

1 LNCAT* PRNTU) « KLBC * PRTME# 

? SCR A M I , )E M I * * HUE TOT * NHUE SO • NOUMP • I. RUED 
3. maxRF* AhEA* NWDS* N4DPS* NPTSf LBHE* lONNOCVCL 

INTEGER TOT w»n • S YM , PRWT # PR THE # PROUT * TOTP I X • SCR AM 1 * 8UEP I X *BUE TOT 
I tCLSNAM 


OIMfNSTON NTMOp) 

r> 1 MENS T UN I NOE X(?7)«LSUHSI30) • L5UPER ( ?9 ) • 1 0 AD J I PR ) * NS YMB ( 1 P ) • 
I RCUMiPft) *PPIRCM|?S)*riN(P4) *CTOTIP3) .PROPIPP) *SPFACIP1)* 
t> WAOJIPO) •WOO) ♦OPROPUR) tOWllT) *VOLINn A) *VOLRT 1 15) •DCON 
MOKATIIJ) SSII?) *PPASSnP) •PSfin ) *OCIN(10) *PC0NDIT) f 
4 0PPI0RI9) tOOEMH) 

OIMEmsION VMIM475) *GEN(99R) *6REF(R9R) *AL1NK ID 

EQtr - - 

eon 

INKni) t^.SYMrtnJ)) 

NKI31) .CI^•I^4) ) • 


EOO 


(I. 

(L 

(L 

(L 

(L 

II, 


1114) 

f 10» *PCONUI7l # 

P).AL1 - 

VALEMCt ll.lNK|l)*ALlNKm )#ILlNKI31)*INnEXIP7)) 

VAI.FNCE ILINKI31) ♦LSUBSI30)) 

VALtwCE (LINKI3D *LSUPERIP9) ) ♦ IL INK 1 31 ) * lOAOJ I2«) ) * 

• ILIMKI31)*PCUM(PA)), IL INK 1 31 ) tPRlRCM IPS) 
ILINKOI) *CTOTIP3) ) • IL INK 131) •PROPIP?) ) • 


• ILINK 131) «0C0N(14) ) f 
ILTnKI 31)*PPASSI12))* 
a!NKi3i)*pcoNn(7)). 
ILINKI31) *OPRTOWIP) ) « 
(LINKI31 ■ 


ILINK 131 ) «0YI17) ) • IL ink 1 31 )« VOLIN II A) ) • 

L1HKI31) tPORAT 
LINK 131) *PSTI 

IL^NKISUtOOENIB) ) • 


IL!»'E|3jj *POBA 
INKOl) .ypiNl?) )* 


ILINK I 


PSTI|{l?t» 


_.)*NTH(31)) 

JONH n?) •NAPL*NTOP*NTRS7M*NWANT*LTNKI14POO) 


NKl:^n,^Pf ACIPl))* ILlNKI31)*WAnJIP0>)* l}.INKl3I)iPll^n* 

NK 131 ) •OR«op( IH) ) ' -i. 

NHljUtVOLPTIIS)) 

NK 131) .OlSSU?)) * 

(LfNKi3n*oriMiio))* 

II INK ( n ) tNhNI7) ) • 

II. IMKI31».GPFF !«))• 

COMMON/CLUS/ 

n!»*FNSION MXAwoi) *LPI3) *LVI3) 

VALENCE aMll)*LVOlN».ILRIP)*LKURT)*^ ^ ^ 

1 ILRIO .LOVAP) • ILVIl) *LSUM), ILYI?) *LSKEW) • ILV I 3) *LOSUM) 

ruMKlN /RISC/ mo,mm,LR*LV*NINCLS*MXAR*WTIN1T*KROOT*EPS*OELT* 

1 AN.^.OOf ON.XOYEI 0 *XONFLO*MAr)JIN*eL IMTH*SFPTH* VFACf AMM*SbLTM* 

? lMMYL*«EftC*NPTSO*PORATHtSPMVTH*OREAC*ftRACTM*AMUFACf 

3 APOM]N,A«;OMAA«AMOPAT*VOLLIM*riIAS*PJOlN*VRJOlN*WSIMtkDELSMt 

4 PETTER*MOOF,COPLEN*SPCOR 

rOMHUN /STP4 P/v<A|T*CONLV*SKPNO*SKCHI*TRPNO*TPCHI*ORKBND*URKCH 1* 
I PACrtl I?) fM4CCEL(2)*VACCELIP) 

L'VMCiM. 
wt«l. ‘-•iFtP 

V4| fc.jCF 


EOO 

Ft^O 
FO« I 
Foil 
E‘)M 
EOO 


FIFLO 


ICOL (1*1) •APPAVIPnOl) ) 
lOOT(l) •AMRAYIPAOO) ) 

ICLDSTNIl) *4HPAYIP510) ) 

INBLKIl) *A««AYI?A20) ) 

IMOLHTIl) .ARKAYIP730) ) 

IMOEERIl) *ARRAYI3001) ) 

(FLOINFIl) *LINSTR) • (FlOlNFlA) *SAMSTP) 
(FI.OINFIP) tLINENO) ,IFLOfMFIS) *5AMENn) 
(FLDINF 13) •LININC) • (fLOIMF |A) *SAMINU 
Tr«^F^*^*^»ATTON STOOEO AS FOLLOWS 


YAl F -xlCF 
VAI t YCF 

valence 

VAI FNCE 
VALENCE 
VAI FNCF 


AH^AYin =F?PST FIELD NAMF FOR THIS CLASS 

(?) OF VERTICES FOR THIS FIELD InV) 

(3)-(34NV*P) s actual vertex NOMHFRS 
( 1 *„,V*?) sTOTAL PIXELS FOR THIS FIFLO 
l4»riV4?)-ll04NV*?) = FLDINF BLOCK FOR THIS FIELD 


CLUOOOll) 

mnii 

CLU00040 
CLUOOOSO 
CLU00060 

CLUO0l)90 
CLDOOlOO 
CLUOO 10 
CLOOO ?0 
CLUOO 30 
CLUOO 40 
CLUOO 50 
FtCLUOO 60 
CLUOO 70 
CLUOO BO 
CLUOO 90 
CLU00200 
CLUOOPIO 
CLU00220 
CLU00P30 
CLU00P40 
CLUOOPSO 
CLUOOPAO 
CLU00P70 
CLUOOPBO 
CLU00P90 
CLU00300 
CLU00310 
CLU003P0 
CLU00330 
CLU00340 
CLU00350 
CLU00360 
CLU00370 
) *CLU003BO 
CLU00390 
CLU00400 
CLU00410 
. CLU004P0 
C.LU00430 
CLU00440 
CLU004S0 
CLU00460 
CLU00470 
CLU004B0 
CLU00490 
CLII00500 
CLU00510 
CLU005P0 
CLU00530 
CLU00540 
CLU005S0 
CLU005AO 
CLU00570 
CLU005B0 
CLU00S90 
CI.U00600 
CLU00610 
CLU006PO 
CLU00630 
CLU00640 
CLU00650 
CLU006A0 
CLU00670 
CLUOOAflO 
CLU00690 
CLU00700 
CLU00710 
CH,)007?0 
CLU00730 
CLU00740 
CLU00750 
CLU00760 
CLU00770 
CUI007e0 
CLUn0790 
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QRiGtNAL PAGE IS 

OF POOR DUALITY 



( 

( 

c 

( 

( 

( 

( 

( 

( 

( 

I 


rilF* CLMSMf» f OK TRAN A 


f# 

C 

r 

r 

C 

r 

c 


HATA RtANK/* t/ 


l«r<5lN • STAKT 




I»Ff,lM ♦ tOTWRd ♦ TOtWRO 

TR»/5AMINC 


actual LINF 
IS SFT IA» 

‘ ‘ t 

. if OtllHIT rUE 

IFMNIT » Ih 
fFCHAK- a 1 
IFrEATU) 
fFrRHT » I 


r 

r 

r 

r 


r 

r 


.niUK!? 


SiZF ■ ISARENn-SAMSl 
KEAHTP AND IS 200 


■ I 


TOTAL WORDS OF DATA 
1* LINE SI2E USED 




I.NfATaO 

TPT«I 

mamPoh * f»! 

OM ?S !*l#f^A«POP 
WHI »Vt (Dart 


r 

r 


r,» 

r» 

r* 

r* 

r 

r 


(Son r*^i Lai.woFi n 

TPPILI- S IFt.r> - 1 

tfT'JA « SK-'IENT*; AI>t-AOV PWOCFSSFO 
KTPAao 

fif IF 001 V \ PAftF NFFOEO 

Mf TNa.FAI.SF, 

MV * NO OF VhNTirFS FOR THIS FIELD 
NVsARRAT ( IRT^U 

TfTSA'^ * TmTAL RIkMS Fom THIS FIELD 
T0TSAMsAH>^Av( 

HOVE OaTA f»fcF|MlMO LINES and SAMPLES 


10 


no 10 


floinf n 
rOMTiNHt 


■APVAY ( |PT*?* ItNV*?) 


1 


CA» C H0FFF« F»/F as FVFn MI^LTIPLF of LINF SI2F 
TOO r ISUOU 
TOTPU s i"'i rpsAMp 

4AW00F a ((TOP - 10nO)/TOTPIK) * TOTPfX 

mLAIi!^ OUTPOr ROFFFL 
rtO 40 Trl.no 
OUT (1 ) rpLANK 


4 0 
7f 


AC. 


ui rouoT OF t»or^Ts 
no 4S Tal.vrtVPOP 
^•HLK (I) =0 


IN '■LUSTFh' 


CHECK IF all of cluster MAP CAN FIT ACROSS ONE' MACjF— ONLY 110 
SVK*P((LS AHF PRTNTf'O ACROSS THE PaOE FOP FVFPT LINE, TMF RR06PAR 

nh.i rp|nt THf entire cluster mar in nn symbol segments 


SFT start If 0 AI>nRESS 
STCLMrSAMSTP 
FE'CLMsS AME MO 


AND ENDING ADDRESS FOR LINE 


.U00800 

.-lisms 

,.U00830 
LU00640 

:luoo$so 

CLU00860 

CLUOOaTO 

CLUOOBAO 



CLU00920 
CLU00930 
CLU009A0 
CLU00950 
CLU00960 
CLU00970 
CLU009a0 
CLU00990 
000 
010 

- ,020 
CLU0I030 
- 1040 

iOSO 
OAO 
OTO 
lOAO 
1090 
00 
10 
20 
30 

CLUOilAO 

CLUOilSO 



xuo . 

CLUOl 

CLUOi 

CLUO 

CLU« 


CLUO 

CLUO 

CLUO 


CLUO 11 30 


SET sample S12F AND WRITF HE AOFR 

IRCAMM s (SAmeno-SAnSTRI/SA'x'INC ♦ 

PFMIM) I RUM IT 

IF (NOF ILE ,f F. <l) CALL FSFMEL ( IPUNIT, IPFTLE.D^JMMY) 

IE' (NUFU.F ,MF,o> call RRTHFO ( IPCHAN. IPEEAT. IPSAMH, IPFRMT# IPUNIT) 


CLUO 

CLUO 

CLUO 

CLUO 

CLUO 

CLUO 

CLUOi 

CLUO 

CLUO 

CLUO 

CLUO, 

CLUOI 

CLUOI 

CLUO 


160 

170 

lAO 


1200 

210 

230 

240 

2S0 

260 

270 

2B0 

290 

300 

310 

320 

1330 


CLUO 1340 


CLUO 

CLUO 

CLUO 

CLUO 


CLU01390 
CLUO 1400 


CLUO 

CLUO 


CLU01430 

CLU01440 

CLU014S0 

CLU01460 

CLU01470 


CK FUR MOPE Than 
mFTM = FAOE. if 


UR sf:ghents specified 
1 LINE true* if 2 DR 


SO IF( I (HvCI m-s#vsTW) /SAMINC+I-XTRA) .L f . 
EmCIMs ( 1 0'J4>Tpa) ♦SAMINC ♦ SAMSTR 
NETNr.TvUK, 

* HFAO 1 Miif-FFP »)E* OATA * 


AND RESET MAXIMUM 
MOPE LINES 

110) 60 TO 60 


CLUO 

CLUO 

CLUO 


IF NFCFSSRYCLUOISIO 


CLUO 


CLU01530 

CLU01540 


CLU(» 


CLU01S60 


CLUO 

CLUO 


350 

360 

370 

3B0 


410 

420 


4B0 

490 

500 


520 


550 


570 

5B0 
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r 

r 

r 


trFT 10 Hfe WKAO 

UNUfSS ONLY 


OATA 


C 

C 


T^rfWO * 10 TAL 

T(*»*|l « lOTwtfO 

orAH FUI.L rturrr« of 
M()W«rD m HAM^OF 
IF (TM»^n .LT* NOWRU) A«0F»4D > TWRil 
lOFfilN IS Hk«lMNlN(' OF SC» 4 AMH|.£n DATA 

CALL *^OFAD CTWFtiiNf RUFe*^# NOkRD* OOMMY) 
AORFSS ■ HFl^IN ♦ NOWRO 

T#*»r» * Twwn - »'*o»»po 

Riii>rAn « 1 


partial rufff» of data left 




r 

r 


lOrt 


HA 


SET COLUMN headings **• 

COWTiNUk 

,l«rt 

00 100 1*SA‘»STP*SAHFND*SAMINC 
fFf I #1 T, STf-tMIGO TO 100 
!F( I ,0T. PNCLMIGO TO no 

rOLCI*Jl«I/lOrt 

roLi?#vU>»Moon,iooj/io 

roLn*j)«MOfi(Ui«> 

rONTIUUF 


r* 


r 

r 

c 

r 

r 


r* 

r* 

r, 

r 


r 

c* 

r» 


1 :*o 
Sf)0 
S?<) 


WHITE HFAOINftS 

LOTS«J 
‘*HTTE (A.SOO) 

♦ HITf <A,. f 41.) 

• wTTF (6.S1 0) 4)V«?AV (IPT ) f rOTSAM 

PnImT CoLOM^j hl'MhfOS FOH CLOSTEH 

»m isl.T 

wwTt)- <^.S?u) n,OL ( !*J) *J*1*LPTS) 

WP| TF (A.SOO) 

FORMAT (/) 

foiswAT • A»s*//* total numrew of 

^0‘^^AT(SXf Il'MI) 


• •• 


MAP 


POINTS IN THIS FIELO'tlT) 


process one LINE OF OATA 
I I^ES WRITTEN ON DISK PREVIOUS TO 




RRM/),N * Nil UE 
P*<FvLN s 0 
00 300 LII Fs|. INSIP.LI nENO.LININC 


LINE HEIN 6 written 


TALL EOLI'iT TO OHIAIN ElElD INTERSECTIONS EOM THIS LINE 
CALL fOLl in4KPAY(IPT*2) ♦NW*FL*LINF#SAMPS*NI) 


PROCESS EACH INTFRCFPT 


c 

r » 


r. 

r 

c* 

rw 


)*iO 


r* 

r« 

r« 


no ?no isi,»'i*? 

'lOPXsn 

SAVE THE HEMNNING AND END NUMREkS OF THIS INTERCEPT FOR ARRAY 

WHICH IS R*^I<\‘IFD 

IH sif L U)-SAMSTM/SAMINC ♦! 

IE s(EI (1*1 )-SAHSTR)/SAmInC*1 

TMMOOISAHSTH.SAMfNC) .NE. MOO (EL ( I ) • SAMI NC ) ) IH =10 ♦! 

TNPTSs ( lf-lP*l )*H0 
IE(|H ,rtl, IE )TNPTSs«^^ 

IF(IH ,bT. IH ) (W1 TO 174 

fHECE IF PiTFRCFETS ARE wITHiN PRINTOUT LIMITS 
IE (EL ( I) .GT. FNCIM) GO TO 174 
fE(El.(lHn .» T. STCLm) go to 174 
r-f) TO ISO 

EEsIvf' nEitJMNING and end NUMGERS FOR ARRAY 0»!T IF INTERCEPT (S) 

exceehs int limit 

IF(EL(T) .liE, Sin M) GO TsI IS? 

IS-IslH 

THs(STCLM-S'»msTR)/SAMINC *1 
IF <mO))(SamSTh,'".AMINC) .ne. 


CLU01S90 
CLU01600 
CLUOifeiO 
CLU0|6?0 
CL 1)01630 
CLU0i640 
CLU016S0 
CLU01660 
CLU0|670 
CLU016R0 
CLuoieRO 
CLU01700 
CLuomo 
CLU017P0 
CLUOI 73 O 
CLU01740 
CLU017S0 
CLUO 
CLUO 
CLUO 
CLUO 
CLUO 


760 

770 

7R0 

790 

600 


STOWE MitMMfctV OF FXTRA POINTS THAT ARF 
OllTSlI'F THE PRINT LIMITS ON LEFT SIOF 
nr»EVs ( ih-ImO) 
vHtEAOsH.O* AO^NO^X 
Ti iPTS s TNH rs - NOFX 


MOD(STCLM,SAMINC) » IR=lH*l 

IN INTERCEPT RUT 


ARE 


CLU01610 
CLUO I 620 
CLU01630 
CLU01R40 
CLU016SO 
CLU01660 
CLU01P70 
CLUO 1660 
CLU{^j690 
CLU01900 
CLU01910 
CLU01920 
CLU01930 
CLU01940 
CLU019S0 
CLUO I960 
CLU01970 
CLUO 1960 
CLU01990 
CLU02000 
CLU02010 
CLU02020 
CLU02030 
CLU02040 
CLU020SO 
CLU02060 
CLU02070 
CLU020BO 
CLU02090 
OUTCLU02100 
CLU02110 
CLU02120 
CLU02I30 
CLU02140 
CLU021S0 
CLU02160 
CLU02170 
CLU021P0 
CLU02190 
CLU02200 
CUJ02210 
CLU022PO 
CLU02230 
CLU02240 
CLU02250 
CLU02260 
CLU02270 
CLU02260 
CLUO 2290 
CLU02300 
CLU02310 
CLU02320 
CLU02330 
CLU02340 
CLU0P3S0 
CLU02360 
CLU02370 
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( 

c 

( 

( 

( 

( 

( 

( 

( 

( 

( 


F|l.fl FO«T«iN A 


r* 

f* 


1*»? 


IFIFUI^n 
!ifcT 


USj 

illis.iiilHri 

MPMTS»N<»eTS*'^0 


•6T. FNCLMI Ifc'«<rNCLM-SAMSTQ)/SAMINC»t 

MHFN THF NUMBERS MOULD 


PWINI LIMITS IN 

ON anotmfr pass 

R-VTRA 
F**TMA 
0 iF> 




ao TO I7A 



r# 

r* 

r# 

r 

c 

r 

c 

V 


!#*« 

r 

r* 

r* 

1 7n 


r* 

r« 


ISS rONTlNUK 


rnrCK IF NfcrOLO data in this intercept is in two HUFFCPS 

IF IWIFAt) ♦ NPNTS - I .LE. NOMHOI 60 TO 170 
•• pFAn HFAT NFCOHU •• 

WOMRLj * NIflXPMF 

IF Iltop.) ,LT, <^0MP0) nomRO « TMRU 

IF (NOWHlI •LF, 01 60 TO IAA 

CAll. P»eAn(M)PFSS«0UFF«m tNOMROtSTAT) 

AORESS * AOPFSS ♦ N0«O0 
TPRO s Tw«Pt) - NOMRO 
'^OFAO » NOEif ♦ I 

CttLL CLUST TO OPTAlM THE CLUSTER SUBSCRIPT SO THAT THE CLUSTER 
symbols can computfo for fach set of FL»S MITmIN THF 

START (STCIMI ANO ENOIFNCLM) 

CONTINUE 

call CLUST fPUFFw(RUFAO> • MSFTS* CLUSTN, KLRC* 6EN(LSUMn 
1*0 


r* 


r 
r 

174 




STOPF SVMMUI S FOw (KiTPllT 

»)•» I7;< KsIri*IE 

LsLO 

NUMsCLUSTNII > 

SFT SYMBOL — IMF SUoSCPIPT F0» SVM IS RFSFT TO 1 THROUGH MAXPOP 
NTFMP s NSVMpinuM) 

Js'lOTMNSY^'HfNU'U-! .MAXPOP) *\ 

IF ( i ,U , 0 ) J s A7 
iMCATsMaAiMl ur«T t J> 

OUT (K ) ssyi^il J) 

SA'/F IMfc amjmHEw of PIXELS ASSIGNED TO THIS CLUSTER 
nhLK (U) sUhLK (J) *1 


CLUO?30O 
CLU02390 
rx«ED^j;}{jjf 

l«lU 

CLU0P470 

cluoIaro 

CLU02490 
CLUOPSOO 
CLUOPSIO 
CLUOPSEO 
CLU02S30 
CLU02540 
CUJ02SS0 
CLU02560 
CLU02570 
CLU025P0 
CLU02690 
CLU02600 
CLU02M0 
CLU02620 
CLU02630 
CLU02640 
CLU02650 
CLU02660 
CLU02670 
CLU026R0 
CLU02690 
CLU02700 
CIU02710 
CLU02720 
CLU02730 
CLU02740 
CUJ027S0 
CLM027S0 
CUJ02770 
CIU*«27«0 
CLU027R0 
CUJ02ti00 
CUJ02P10 
CLvr "M?0 
CLV Vfl30 


9P74 

C 


TF UATa on srpATCH OISi^ To COMMlNf PAGES AND WRITE LINE OF NEW 
DaORES s PhFVLN 4 LINSIZ ♦ XTi^A ♦ HASFAfi 

TF (NUFILF .ME.O) CALL RWRI TE fDAORESt CLUSTNt NSFTSt DUMMY) 
PRINT line of OUTRUT M.-iO RLANK PUFFFR 
-*‘^ITF (S*2/S) LINF* (OUT(K) ,K»!*LPTS) 

IF* (LP'F .LF, 4) WRITE (3*R?7S) LINF* (OUT (K ) •«*! tLPTS) 

FOPPAT (2X« IS*?X« nOAl ) 

FORMAT (?X#TS*?X.40A1,/*9X,S0A1 ) 


IF (uUFlU ,F0, 
,>u pMu Ks) , no 

UUT(K) s 


0) GO TO 301 


HtjFAO r HUFAT. » (NPTS 

rONT IIM'*E 


r: 

) or, 

r 

pno 
r 

100 RRFVI u S PKfVt N ♦ 1 

r 

70) 
r 
r 

r cmf 
310 

r 

C ^'UL 


rUMTlNUF 


*<» END OE GENERATION OF LINES FOR I PAGE •* 


fK FOR ADUITIO'VAL pages 
TE(.NOT, I'iElNiGO TO 400 


n 

a 'ji 


TI^I-F PAGf.S. 
[TRAs(FNCL 


RESET HOUnDARIES 
xTRAs(FnC».m-S&RSTR)/SAMINC ♦ 1 
STrLMsENClM*! 

ENCLMsSAME NO 

NFifis. F alse. 


vrt:5 


'3, 


CLU02P40 

CLU02PSO 

CLU02R60 

ETLCLUO2H70 

CLU02RR0 

CLU02B90 

CLUO2R00 

CLU02910 

CLU02920 

CLU02930 

CLU02940 

CLU029S0 

CLU02960 

CLU02970 

CLU029G0 

CLU02990 

CLU03000 

CLU03010 

CLU03020 

CLUOIOSO 

CLU03040 

CLit030SO 

CLU030G0 

CLUO3070 

CLU030R0 

CLU03090 

CLU03100 

CLU03110 

CLU03120 

CLU03130 

CLU03140 

CLU031S0 

CLU031G0 
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F|l,Ft fUISr»P A 


f. 

r 


TO PPOCFSS HflOlTlONAI. PA«FS 
00 TO hi) 


400 rONTlNOfc 

• 


iJPITk OAT A FHOM SCPATGH DISK TO OPUM) 


C 

qQf.K. 

4 S 0 

f 

r 

r 

c 

r 

r 

4 «i«i 


IF IMUFILF n) 00 TO 455 

F^•otAP » !"«irATOP THAT LAST HFCOPl) MAS OFFM VPITTfeN 
fOOTAP a 
IMCMP * 0 

i}0 4S0 LINF « LiNSTMvL INFNO«LfNXMC 

fnota® « -i 

AOPFS » HASFAO ♦ INC«F 

TALL M«|AD (AOPFS* HUFEP* LIMSIZ* DUMMY) 

CALL aPTLf^ {MUFf P. FNOTAM) 
t^FTTF (4«PV4S) (Hnpp;pn)»I>)«lS6) 

FOPMAT <• NKP FIl> ««O0iZf/«40f?«/«60T?«/«50lZ) 
IMCMF « lNC»r ♦ LIWSI7 


** KNO OF CI.USTFP MAP *• 
*« PMIWT COUNTS •• 


tvo 4 f»S I*).''A¥POP 


r 

r 


r 

r 


r 

r 


A AC T ( n XT) ♦NML«< ( I ) 

WW!TF I4.S70) 

C70 FORMAT «//?«. •POINTS =FW CLUSTFO IN THIS FTFLO«/:«* •CLUSTFM* . 
S** 'SY'-wOv •.S*#«POINTS»/) 

I f«irATs*«')lML»-iCAT-l *MA)(F0P) ♦! 

00 N«0 laUl f CAV 

V'k^lTF (A.'jSO) l•SrM(l)•NKLK(^ 

Non FOPMAT(NX*I?*inx,Al#7«*75) 

Ann roHTlwut 

V.-^nt (AfHeAO) 

( iWSfiH.NCAl 

7cn FOi^MAX//* Tf'TAL NUMPFP OF CLUSTERS ***n) 

TOTHTSsTOTwOO/mo 

TF (4.760) TOTPTS 

7<^f» FONf«AT(/* TOTCI. NOMHtP OF POINTS »*.TS) 


a'PITF (4. 77 0) 
770 FO»P«r(//» 


SyMPOL. 


POINTS IN CLUSTFR*) 


no 77S Jsl.lNCAT 

7/c u'I-TTF (4«7Hi)).),SVM( J> .NHLKT (J) 
Fl)0-*IA r (Ak.I/.DX.Al.lOK.X) 

TOR'i 

fmn 


CLU03170 

CLU03{S0 

CLUOaiPO 

CLU03Z00 

CLU03210 

CLU03240 
CLU032S0 
CLU03260 
CLU03270 
CLU03280 
CLU03290 
CLU03300 
CLU03310 
CLU03320 
CLU03330 
CLU03340 
CLU033SO 
CLU03360 
CLU03370 
CLU033A0 
CLU033SO 
CLU03400 
CLU03410 
CLU034P0 
CLU03430 
CLU03440 
CLU034S0 
CLU03440 
CLU03470 
CUJ034S0 
CLU03490 
CLUO3S00 
CLU03S10 
CLU03S20 
CLU03530 
CLU03S40 
CLU035S0 
CLU03540 
CLU03570 
CLUOlSPy 
CLU03590 
CLU03600 
CLU03410 
CLU03620 
CLD03630 
CL UO 3641) 
GUJ036S0 
CLU03640 
CLU03670 
CLU034H0 
CLU03690 
CLU03700 
CLU03710 
CLU037P0 
CLU03730 
CLU03740 
CLU03750 
CLU03740 
CLU03770 
CLU037F0 
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ORIGINAL PAGE IS 
OF POOR QUALITY 
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( 

(, 

c 

( 

( 

( 

( 

( 

( 

( 
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CUIST 




f 

r 

f 

r 

r, 

r. 

r. 

r, 

e 

c 

r 


- ^y*»gOUTINE CLUST(HlOP»NnO«KLOUTtKROTIN*SUM) 
THIS PMOgRAW TAreS FACH iNPUT POINT 
FOP THE PlIPPOSC OF 0CNEPATIN6 A 


AND CLASSIFIES 
WH® # 


IT< 


CM»ST_APGUNFNTS CCLUST drawn from STATIS) 


«10P 
NDO 
KLOllT 
KPOTIN 
SIIH 


POSIT TON OF SUM 


CLUOOOlO 

;luooo20 

'LU00030 
LU00040 
UOOOSO 


xuo 

5lm? 


OUTPUT SYMmOL is DERI 


OlMfUSlOH NTPCIP) 

0 1 ^FNSI ON I NOF M < ?7 > #LSUBS <301 
PCUMC?«!i> •PP|PCH(?SI iC|Nf?4)f 



CLUSTER 
NS 


YMBIKL) 


rr§/!?A« 


IDA0J(?S)«NSVMR<12)« 
POP«2a>*SPFAC<r 


wAUJfPO) •WI|9I •ORROPnP)«OW(l7)iVb^TNn4)«vSL^TnS>*8{&Nf 14)« 
POkAT(13T*OISS<|P»*PPASS<12l*PST(tl»*OCINnOl*PCOND<T»# 
UPRIOP79) fOOFN(H) 

niHFNSrON VPfN(47S)*GFN(999)»GREFl99RI«llLlNKn) 

FOUIVALFNCE (LIN»<(^I t ALINK (1 U • (LINK (31 )« INDEX (27> > 


FOU 

FUU 

II: 

(L 

(L 

It 

(». 

(I 

ll 




[NK( 31 ) *10400 (pan* 


fn:!:i !:SKS?ip!!: it «siii!:SJ?yifr” 

NF (31 ) •V0L9T(iS) ) * (LfNK(3i)*0C0N ‘ 

MK ( 3 i ) • n I SS U 2 ) ) « ( L I NK ( 31 ) * PPASS 
NF ni ) *OCIN( 1 0 ) ) , (LINK(31) fPC0N0(7) ) • 
NK(3 )*0FN(7))« (LINK(31) *0^0109(9))* (L 
NK(3 )*0«FF(6))* (LINK(hi*NTR( 


m o 
0 

JLUOOOaO 

CLU0009A 

mm 

CLU00130 
CLUOO 

stalls 

CLUOO 
CLUOO 
CLUOO 
CLUOO 



i!i iinasiHM If! 

(LINKOn *VPIN( 7 ) ) 

LINK( 31 )« 0 DEN( 8 ) ) « 


) * 


.3U*NTR(3l)) 

rOMHOM/CLUS/ JUNI' ( 12) *NARL •NtOP*NT«SZM#NW4NT*L INK ( 14000) 
OIMfNSTON HX«R(31) *L»(3) *LV(3) 

rt^iifvouNcr a.»u ) ,lvrin) * (lR(?) *lkurt) ♦ 

1 (LR ( 4) *L”^VAkf ) « (LV ( 1 ) *LSUM) • (t.V (2) vLSKEW) • (LV (3) *LOSUM) 


ro*^NON /Misr/ H(j*mm*lr*lv* 


•mxar*wtinit*kroot*eps*oflt* 

N,EL lMTM.SfPTH*VF4C*AMM*SHLTM. 


1 AMO. 00C0N*X0VF10*XIINFL0*W40J. 

? IK'0W\/L*«<FAC*NRTS0*P()MATH*SPMVTH*0WFAC.GRaCTM*4M0FAC* 

3 AMf)MlN*AM<»MAX.AMORAT.VOLLIM«HlAS*PUOIN*VHJO!N»WSIM*WOELSM* 

4 hf:ttes< tMonf *coplen.spco» 

COMMON /STPAP/WAIT«C0NI.V*SKPND*SKCHI*TRRN0*TPCHI*UPKRN0«URKCHI. 
\ PACCELI?) *MACCEL(2) •VACCFL(?) 

1 mens 1 1(N M r HP ( MO • NDO ) * KLOU T ( WOO ) • SUM ( 1 ) 
common/migcom/ MionuM 
PFAL PFLOO) 

LOGICAL ISPLIT 
XP(OIST)*EXP(-.S*niST) 

K-V0T*«PUT|N 


IF ( KOOT A ) 

moo f()»m4T( ?x. 

Tio ) 

TF (KOni ,Lf. A> PFTURW 


•^PnE(6.1000) KROT 

:::{ warning 


IN CLUST* KROT«»* 3X* 


r 

c 


no 39 V 100*1 .'MOO 
TNSHFTT F.acm POINT 
O'-IAXa-l • 

KMAXsO 

CHA'UiP PFIRASS^ACH 3/21/77 
OSFS PCOwn FOP PPASS* DIST FOR l.)IS5(KL) 
PCOUIMKhOT) *1 . 

PTOTsfl. 

fSPCsO 

KLsLSOO'^ 'KWOT) 


mCKPT = 1 


TF ( KL 
fiftOO FOP’IAK 
«T» * 2X. 




0 

?K, 

13* 3X* 


▼F (KL .LF. 0) RETURN 


w«ITF.(N*?0O0) NCKPT 

:::::::: warning t::;: 

KL*» • 18 ) 


KL 


IN CLUST* AT 


<(■ athskpot 

(iO OOWN CUiSTPP TWtF 
CHANGE PFtPASSHACW 3/21/77 

1 30 PCOMO (KL) =PP(»P (KL ) / (PPIRCM (KFATH) ) *PCONO (KFATP) 
IF ( .nOT.ISPLIT(KL) ) GO TO 131 


40 

SO 
60 
70 
AO 
90 
00 
0 
0 
0 

_^U00240 
CLU002S0 
CLU00260 

cluooIto 

CLU002R0 
CLU00290 
CLUooaoo 
CLU00310 
CLU00320 
CLU00330 
CLU00340 
CLU003S0 
CLU00360 
CLU00370 
CLU003A0 
CLU00390 
CLU00400 
CLU00410 
CLU00420 
CLU00430 
CLU00440 
CLU004SO 
CLU00460 
CLU00470 
CLU004A0 
CLU00490 
CLUOOSOO 
CLUOOSIO 
CLU00S20 
CLU00530 
CLU00S40 
CLU00S50 
CLU00560 
CLU00570 
CLUOOSPO 
CLU00590 
CLU00600 
CLU00610 
CLU00620 
CLU00630 
CLU00640 
CLU006S0 
CLU00660 
CLU00670 
CLU00680 
CLU00690 
CLU00700 
CHECKPOINCLU00710 
CLU00720 
CLU00730 
CLU90740 
CLU007S0 
CLU007G0 
CLU00770 
CLU00780 
CLU00790 
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riiFi cum 




r 

C' 


KFATH»KL 
HL»LSIWSIKU 
WCKFT « 2 

tF ( Kt •LF, 0 ) NRITFf6*?000) NCKPT • KL 

IF CAl. «LF* 0> «FTUPN 
«f> TO i;<o 

IT1 CALL CO«tCT<PFL*H!fiH<l#lUO>tW«KL)*SUM<KL*in 
: chamif ftr*«ASS«ACH 3/?i/t7 

niST «OOTSu|PFL • v»^ t N (KL ♦ 1 n *M < FL > 
if (A«iS(l)IST^OCOMKL>l*Lfc« 160.) 60 TO S3) 

60 TO )39 
O CONTfNOF 

: CWANOF fcfFSkASSHACH 3/21/77 

o«»P <I>TST>OCON <FL ) ) / VOLPT <KU <»PC0Nn (KL ) 

htot«ptot*p 

IF(P.LF.PMAX,00,I«JPLIT<KL) ) 

1 60 TO 

P6AX*P 

kwam»hl 

FL*LINK(HU 
TF(FU 130*|40,no 

60 UP THFF 

: ChAMjF PFMASSPArM 3/21/77 

; 140 MCOMIXHI.) * 0 

14«# FL a kFAIh 

PCOHrM«l.) s 0 
KFATWsLSU‘^FO{K|.) 

♦ 'OPT * ) 


IF 

TF 


( «l 
(FL 




.Lf. 0 ) WWITe(6*?000» 

.LK. 0) PFTORN 


60 TO 131 


NCKPT. KL 


fi4 7 

I 


IF (♦^L.NF.KPOn 
IW*FLO»>T I l!))> 

♦<l OUT (lOUIsHMAX 

IF (PTOT.NF .0.) FMAX*P'«AX/PT0T 

♦' TFina t.itlim) eo to 399 

446 PWINT 647. inO.w(KROT) .KL.ISFC. IKTP(I) .Ist.ITLIM) 
FORWaT ( •UL.OOP TN CLUST t IDO.W(KPOT) . KI..SFCT ion*. IS.fc 11.5.215 
/ nxl4l5) ) 


n 


fUMTINOF 
PFTIJ6I'I 
F NO 


CLOOOBOO 

CLUOOAIO 

CLU00A20 

CLUOOAIO 

CLU006AO 

CLUOCAAO 

CLU0OA6O 

CLU00A70 

CLUOOAAO 

CLU00A90 

CLU00900 

CLU00910 

CLU00920 

CLU00930 

CLU00940 

CLU00950 

CLU00960 

CLU00970 

CLU009A0 

CLU00990 

CLUOlOOn 

CLIIOIOIU 

CLU01U20 

CLU01030 

CLU01040 

CLU01050 

CLU01060 

CLU01070 

CLUOIOAO 

CLU0109U 

CLUOllOO 

CLUOtilO 

CLU01120 

CLU01130 

CLU01140 

cLuonso 

CLUOllOO 
CLUOllTO 
CLUOl lAO 
CLU01190 
CLUOl 200 
CLUOl 210 
CLU01220 
CLU01230 
CLUOl 240 
CLU01250 
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FTirt CMFHK fOATftAN A 
<U«l>COTlNr CMFPR 

iO (•CHFPR— FATAL E«WOP, END OF EXECUTION*) 

FNO 


( 

( 

< 

( 


( 

( 

( 


CMCOOOlO 

mtm 

CHEOOO^O 
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Pflp: fo»FCT foivthan a 


'^o«NuuT!^^ rowfeCT <rc;l»pv*p«s> 

common /Misr/ MO,MM*Ltt*LV*WlNCLS*MXAR*WTINlTtKPOOT*fPS*OELTf 
\ AMOfUOCON,AOVfLO.XUNPLO.WABDlN.ELIMTH*^EPTM,VFAC*AMMfSBLTH» 
? T^'n«VL.WFAC*NPTS0*P0RATH,SPMVTH*0»»FAC*5RACTM*AM0FAC# 

? AMO^UNtAMnMAXtAMORATcVOLLlMvBlASfPJOINvVRJOINtMSlHtWUELSPt 
4 f<FTTFP*MOr>F,COPLEN*SPCOP 
PFAL NFLl.^OU PVnO)* S(30) 
no 10 T « 

PFL(I) * PV(I) - s<n / P 

n ■ ! 

WFITF (6*M99‘>) 1 1 •RFl, ( I ) ,PV ( I ) «S ( I ) t P 
FORMAT (»rORFCT I •REL*PV*S*P* • I4* A (F 1 0.«*2X M 
CnMmJUF 
Rt- TURN 
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FILFI HAMSO 


rOPTRAN A 


r 

c 

f 


1 


PE »L FUNCTION HAHSO^B 

trace of the souape of tmf matrix am« relative 

DIMENSION MXXHOn •LRf3)«LV(3| 

EOMI VAI ENCE <LR ( i ULVRIN) • (LR I2» *LRURT) • 

ILRH) •LOVAWI • (LV C U *LSHM5 « CLV<2) tLSKEV) t <LV C3) «LOSUM) 


COMHON /Misr/ MQ«MM«LR«LV*NINCLS«MXARfWTINlTiFROOT»EPStnELT« 

I **!g*0r)t0N*50Vfl0#XIJNFL0*WA0j|N*ELIMTMisWH*VFAC*AMMfSHLTH* 
? TNDX VL • hF AC •NHTSO t PQRATH t SPMVTHt DVFAC « OR ACTM j AMOF AC « 

^ A HE ITEM* MODE tCOPLENfSPCOR 

WFAI.AM AMUTS) 

HFAL AHETIA7SI 
PFAl.#S DAMSO*nAMSOOtPOV*COL 
OAHSOBn. 

OAMSwOmy, 

DO ?n Ib1,mm 
(Ht 19 J>1«1 
OOWcf). 

roLso. 

fFLor«MXAH<n 
KJLO( bMXAMC J) 
no JO K»i*j 

F09u»»0W4 AM c TKLOC* I ) *AMET <K JLOC* 1 ) 

COI «C(lL*AM (F JLOC* 1 ) *AMET ( IKLOC+ 1 > 

IKl.OC*IFLOC^l 
JO FJtOCmKJLOC*! 

FJLOC»KJLOC*J 
IMI.FO.J) DO TO 1? 

00 U KsJH,f 

P0«isM 0M4AM( IKLOC^I ) *AMEnKJLOC) 

COI.sCnL»AM(K JLOC)*AMFT ( lKLOC*n 
lK|.or*TKLOC*l 
M FJI,OCbKJLOC*K 
I? IFU.TO.OU) AO TO U 
IKL0r*!KL0OI 
TFsT*l 

no 13 fbip,,'«o 

90WsM 0W4AM( TKI.Of) *AMFT (KJLOC) 

COLbC()L*AM(KOLO(.)*AMET ( iKLOn 
TKLOCsTFLOC^K 
n KJlOCsKJLOC^K 
16 rOMTlOMF 

io f)AM5,o-0AMSw4‘»O-<*C0L 
?n r)AWSOOsOAMSOr)690*«*COL 
l)AMS0snAMS(i*OftMSo-r)AMS90 
r, WF must count each OFF-niAAONAL 

r COUNT INA THh OIAAONAL TEWMS. 

WtTUNN 
FUn 


Twice, oamsod avoids ooublf- 


OAMOOOIO 

OAM00020 

OAM00030 

OAN00040 

OAFOOOSO 

OAWdOOBO 

DnMOOOTO 

DAMOOOBO 

OAM0009Q 


DAMOO 

OAMOO 

DAMOO 

DAMOO 

OAMOO 

DAMOO 

DAMOO 


00 

n 

30 

AO 

50 

60 


DAMOOITO 
OAMOOf ‘ 
DAMOOl 
DAM00200 
OAM00210 
0AM00220 
DAM00230 
DAM002A0 
OAM002S0 
DAM00260 
0AM00270 
DAM002A0 
OAM00290 
OAM00300 
OAM00310 
OAM00320 
DAM00330 
OAM003A0 
DAM00350 
OAM00360 
OAM00370 
0AM003B0 
OAM00390 
DAMOOAOO 
OAMOOAIO 
DAM00A20 
DAM00A30 
OAM00A40 
DAM00450 
DAM00460 
DAM00470 
OAM004H0 
DAMOOAPO 
DAM00500 
DAM00510 
r)AM00520 
DAM00530 
DAM00540 
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FII,ri r»ATFI<t FO»T«AW A 


suPi^fiuTiMi nATrm 

nlMFMsr ON IMiiirx I ^7) «l SUMSI 30) ♦LSURRR I ?9) • lOAH J()»8) tNSYMR ( 1 2) • 

1 tHRTRfHI?5) •C|NC24) *0707 C23I •pWrI??) •SPFACT?!) • 

2 mAOJC^O) f W ( 14) «(»PNOPf 18) «Otf U7) tVOLINnA) •V0LP7( 15) •DCONIU) • 

3 POPA7H 3) tnfssil?) tPPASSUZ) •P5T(1I ) tOCINMO) tPCONDfT) • 

4 0 PPI 0 P< 4 )« 00 rN( 8 ) 

nTMFNS.!«N VP|N 14 f5) •BFN19P4) tRPFf CN40) f At IMF <| ) 

• |f 


FaOIVAUNCF 

F'jUrVAtrNfF 


FilinvatHlCFaiMFO 


■f LINK n ) * AL f NK ( i ) r* it INK 1 31 ) 
(tlNK(31)«LSURAni))) 


|NDF)((27)) 


Hi CtlNKC3l)*CI07l23))* ai 
(UNK(3|)«SPFACI2)))» 


O.IF# til)*'*'SVMHn 

iLfNh<:u)*r.rN (24 


(l.lNKf )l).nf*>->OPtlA))# 
<UN*<< 3 )) *ViH.‘>TnS)) • 


rOADJIPB))* 
(LINF(3l)«PRIPCfM25 
lNK(31)«PP0P«22))f 

{LINK<31)*NAnjl2()))« (tIMK(31)«N(19))t 
(t|NR(31) fONClT))* aiNK<31)«V0LIN(15))« 
aiNK(3t) •0C0Nn4))« <LlNKb!) «POPa 7<13) 
(Uf *i)fniSSClP))* (LlNK<31)fPPASS(l?>). (tINF(3i)«PS7(ll))« 
n.lfmr, 4n,ori'MiO))* (LINK(31) fPCOND(7))« (LTNK(31 ),vRIN( 7) )« 
<tlNK / 3I) tAFNl7))* CLINKOl) tOPNIOPCR) ) • (LINK ( 31 ) •00EN(8) ) t 
(L!NKt3|).r,MFF<A)) 

rONMON/CtUS/ (J ?) .NAPL >NTQPtN7RS7M<Nn>ANT. L INK 1 14000) 

r>IMFN«»TON »>*<A^’( 3 ))«tR< 3 ) ttVO) 

F.IOtVAtfe.'JCF (LR( l)«tVR!N) *nlR(?) ♦UU»T) • 

SHM) ♦ ‘ 


)) 


)« 


1 (LP(3) •t'>VAN) • (tVM) *tSH 


aVC?) ♦LSKFW) « (tv (3) •L05IJM) 


common /MfSC./ PO*NM,LR*LV*NINCtS*MXARfWnM7*KR00T*FP5*nEL7. 

) 4MQ«uOCON«XOVFLO«XllNFtO*AAttJlN*ELlMTH«SFPTH«VFAC«AMHfSt)L7H« 
lNnxvi.» 4 jF^*NRTSO*P<»«ATH 7 s?Wm*OWFAC.GPACTP*AMOFACt 


1 1 « VI. f ^11 • t'WM Ain* v rTi*uwr*«i-*vpHni,TPs« r ur ac f 
AMO>Mftry^(^ilX.4MONA7.VOLLIM.RI45.PJOIN.VRJO!N« lf<SiN«WDFLSM. 
HF T Tf P « MOf>F > r.OML FN » SPCOR ^ 


? 

3 

4 

fOMMOK /S)PAR/ttAXTt C0Fi^ *SHNNOff;KCHl>TPPN0«TRCHT»UNKHNf><URKCHlt 
I PACCFI.(?) •’^4CCFL(^*VACCFL(?) 

common /SPP A •>/ OAMMeT*DELMF7*S07ME7«0«COV*OPSKFW.Ofe»Kl)R7*CXMNSO* 

1 SnwMlN*t»MAJ(f^AMCeN,TSO!NI,DANP*00«PM<»*niAO,tlM0#7lMl*|TERMX* 
^ SF»FI* 

common / 1 n 1 t 1. / w t mf w • of V i n I » ch an I N 
common /jo I NPw/ vO JO I N • Pt I M f ^40 JO « NOEL T M 

nm)of:»o 
CO'^itV* i. 
vvCACslfl, 

MSI'^*40n, 

WAOJ|ns? 00 . 

roNtvxcoNtv<>sFr«)M 

no po i*i*NT«sr 7 

/n LTNF(nso 

WFTOWl» 

FNO 


DAIOOOIO 
OA700020 
OAJ00030 
DAT00040 
DA700050 
DA7000A0 
DA700070 
OAT00080 
DA700090 
DATOOIOO 
«DAT00110 
OAtOOlPO 
DAT 00 130 
DA700140 
0AT00150 
OATOOIAO 
f)AT00170 
OATOOIPO 
OA700140 
OA700P0O 
OAT00210 
DAT 00220 
OAT00230 
DAT00240 
DAT00250 
DAT00260 
OAT00270 
OAT 00240 
OAT 00 240 

nATooapo 
DAT00310 
OAT00320 
OAT 00 330 
OAT00340 
OAT00350 
OAT00360 
PAT00370 
OAT003R0 
OAT00390 
OAT00400 
DAT00410 
04700420 
OAT00430 
UAT00440 
OAT00450 
OAT004AO 
OAT00470 
OAT00480 
OAT00490 
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FILFt OENC^t FO»T«*N A 


C 

r. 

r. 

r 

r 


^U««OUtlNF nf NCAL IKLf RATlOvOLW) 


DCNOOOlO 
OENOOr 


TMIS OOUTI'^E AO 
.NEW FROH«l»AT 
THE NODES MUS _ 
NfWENSlON NTR(^?) 

DIMENSION 

1 FCUM|?H) 


OF KL* 


JUSTS THE QENOMINATOH OFFSET AND PROPORTION OF I 
T lLb?AOV%E PFCONNECTEO TO^?HeV8 NE&^pSs)t10NS< 



? WADJ(?0) 

S POHAT r. 

4 0PHI0P(9> «00EN<H) 
dimension VHIN<4fS)«6EN<999)*6PEF(99P)»ALINKfU 
FNMIVAtFNf E (L INK < H « AI.INK ( 1) ) • f LINK < SlI t INDEX fP7) ) 

eouivalfncf (LINK <ii),LSUPSf son 

FOUI VALENCE (LINK ( 31 ) «LSUPEP (P9) U (L INK (31 ) • lOADJ (29) li 
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( 14 ) 


OENOOOSO 
IN00060 
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DEN00090 
DENOOIOO 
OENOOllO 
DEN00120 
DEN00130 
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DEN00150 
OEN00190 

(LTNK(3I) «PC0M(24) ) . (LINK (31 ) #PRI«CM(2S) ) •D|n06I90 
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(LINK(il)*SFfj(7))# (LINK(31)*0PRI0R(9))« (LINK ( 31 ) t OOEN (9) ) 

(L NK(31)*«WEF(rt))f (LINK(31)#NTfti31i> 
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•^Ui^FOltTINF O»*INVCA«<lfC«V0L) 
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Cfttrui M»0»UCT W.V **FLATIVF to THfc MRTPIC AMFT 
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(LlNK(3l) ,SPF AC(?I) ) • (LlNK(31)*WA0J(2ft) i t (LINK ( 31 ) fW( 19) ) f 
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(I lNK(3n.VOLOT(iS) 
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♦ Wl I'*! 

0LIN( 
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(LINK (31) ♦OPWIOW(O) ) , (LINK(31) «OnEN(N) ) • 

(LINK (31) ♦NTPOl) ) 
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1 (I P (3) ♦L'»^A») • (LV(l) •L5UM) ♦ (LV(?) tLSKFlK) ♦ (LV(3) fLOSUM) 


vNfMM#LP#LV»NINCLSfMKA9#WTINTT#K«OOT#FPSf0fcLT# 
AMOf jUCUNf ;»OVKLO#KUNFLn#WAUJlNf FLlMTH#SFPTN*VFAC*AMM#SHLTHt 


ro*‘MoN /iKisr/ 


J» (IVUH'/L* aC.NHTSO.PQWflTHfSPMVTH*0WFAC#6PACTMsAMI)FACf 
3 ftMOMAX • A'KU‘^KrtVOLLIMtrtI AS*PJOIN^VPvlOlNfKSlNt(i(()f.LSM# 

ft Hf T T K • ">01 IF • r OWLF • SPCOP 

rOM^O'J /ST^'it-VKAlTtCnMLVfSKPNOfSKCHlfTPNNUfTWCHT^ijPKHNL'tUPKCNI* 
1 pAfCFi (j»).Mftrcei (?) fVACCFLi?) 

PFAL V(3d) (ft7S) 

PFftL*o (M')TS*>.rM,4nOT 
r)t»OTS’iso, 

oonoTsv 1 1 ) <M/ ( 1 ) *anft ( I ) 
on 10 Is? ♦NO 

^KsM!KAt> ( f ) 

7 I'O M Js?^l 

» 0n(kTS0si)I)ftT‘-O*V ( I ) *V ( J-1 ) *.rvf;T (MAft J-1 ) 
in i't<*UoTsnuUi»I*«/(T)*V(I)*AMFT(r''XftI) , ^ 
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fjcl 
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pTROOilO 
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*>U«»»0UT1NK FIii»«OTaP«MfR*f{V) 

TMTS »OUTIWE C<kU«; SYSTFM kOUTINFS 
kFAt*H V(MktNM)« klkMvHMrtr 
AN | P»tF SUH*<ATk‘ - 
!M F AN» THfc FI 
TNF SFCUNO fNHFX 
<«-fTHlN ThF". 

IHF STOkAijC MtO^kMOH SYSTFM (MOR^TAtFRCF) 


klX OF THE ARRAY R. THE EIGENVALUES ARE RE 
GFWVECTOR MATRIX IS IN V ID|M nR#NM». MHER 
HFX RUNS OlFR FIGENVECTORS* AND THE FIRST 


GENERATE AN EIGENROTATION OF 

RE|URNEO 
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THE LOVER THlA^•RL^^ OF R IS DESTROYED • 

CUHMON/CLOS/ junk HE) •NARLtNTOPtNTBSEMtNVANTtLINK 1 14000) 


C 

C 

C 190 R 


r 

r 


r 

0007 


r 

r 


LHP ■ ? » LP 

1hB|MnRSTK(LP?) 

Th«MOHSTH(lP?) 


(R(I«J) «Ia|«NM| tJsIvNH) 

••aiGt/ . 


wkITF <#*•9904) 

<»PPF TRIUHX LP*NM*P 
1 4<4(Fi0.P«^X) / )) 

CALI TRll>9jf <LR«NM«A«LINK<I0) •LINKIIH) ) 

LUt « lU ♦ I P -1 
I IH « l« ♦ I P - I 

(^.OSOM) IPjNM* < (R( I«J) •I*1«NM) «J«1« 

(LiNK(i) ,i>ii),Ltn) • (link(Y) f 1 «!b«l|h) 
1>M«T <»POST THM>M»*LP*NM*R*HHlB»*?TA*/« 


NM) 


F01>m«T < ‘POST THM>M»*LP*NM*R*I0*IB»*?TA*/« % 

I 4I4<F10,2.?X) / )) I 

TV*POPSTP(L^V) E 

|».»^(mST#<(LP’) t 

9WTT7 fh,W9W7) (P<I)«Ixl,4) E 

FORMAT <*PPF MfiVAl. F»*/. 4(4(F10,?*?X) / )) E 

call FI jVALU P.I:*LINKan).LINKlf«)*LINK(Irt).LINf<(lF)) f 

I iw » Tw ♦ T F 

Lie = ff ♦ -» E 

v^#>fTF ^^•t.»•o^) LP#<t(J)*J*l.4)t(LINK<n*l*I0*LlO); _ E 

I (Ll^K ( I ) . fsiH.L IP) * (LINK! I ) tlBTMtLTv) • (LINK ( I ) • IsIFtLIt* ) h 

F»>«**AT ('POST FIUYAL FP*E . 10* !«• IV* IF • . I «•/• t 
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) .«»FF(8> ) 
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0 
0 


-fosS 

01040 


[050 
1060 
070 
1080 
1090 
100 
no 

IPO 
130 
140 
ISO 
160 

J80 
1190 
1200 
1210 
*20 
. i30 
01240 
01250 
101260 
[01270 
01280 
01290 
0130ry 
01310 
01320 
01330 
[01340 
01350 
01360 
01370 
01380 
01390 
01400 
101410 
- J01420 
JOI01430 
J0|0l440 
JOl 01450 
JUI01460 
JOI01470 
J01014BO 
JOI01490 
JUI01500 

joioisio 

JOI01520 

JOI01530 

JOI01540 

JOI01550 

JOI01560 

JOI01570 

JOI015R0 
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-i'j -j.-j r».“» 


f 


Flirt ;oiM 


fOPTUAN A 


c«v«rp 

TtdNDF^Ad^HI.LT.O} CHV«CBV<llMKR)/OM(KR) 

C«LC1JLATF WFIrtHTFD nvfQALU MFANS AND COVARIANCE 

no ?1 

SO^iJOIN^f >«CA*S»H^IKA4!MCH«SUM<KB*II 
^nFwuoiN4{}«o. 

O«MMUOiR4ll«S*INM0IN4n 

0FLTA*ff#IFA*S>IM(KA4n-SUM(KR4n) 

COVAOlANff «(;oyAP(KM«COVAHlKF)40ISPLAC€PENT**2 (VlTH COEFFICIENTS) 
00 ?1 .1*1 •'<10 

a\ 0(lf J)»CA*A(t,J)*CbV*HCl»J)4nELTA*(FA*SUNIKA4j)-SUN|K«4j) ) 

PUT rOVAPlANCi- INTO JOIN NCOFf CALCULATF yOtUMF 
FAIL T«IMT<l0VAP(J0lN4l)t0l 
CALL *«lNV<VyV*A,0*VOLIN(JOIN) ) 

CAM. TPIMn tV«TN(JOI^^.tl) •VVV) 

/f t-o OUT ^UWT 

00 ?? Ts|»<'M 
pp •ntPTI JOf.'j^nsn, 

fOWAPlANrt. «F PO«,niyt OEFINITE 

If IVOl TUivtOT'' ) .L*> .0.) P^^INT 6SJ*LS*JOin*VOLIN(LS) •VOLINIJOIN) 
FOOMATK fPROP IN JOIN* CLASSFS*VOLUNES» tXlStPElOiS) 

wot INI. JO I V ) s! fc < VOL I N 1 JO IN ) ) ♦ , 87?s#>S 1 07#>3F-?fr* ( 8 • ?63 1 8S307/y I 

I 4#v,(,. 


JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 
JO 

JOIN) ) JO 
JO 


PUT WOUlMf t VOL IN) IN INTKWNAI FOPM, CALCULATE VOLPT* 
VOlPTI JOII* )s«iOPT( VOL IW( JOIN) ) 

OCOtV) t JO I N)srn H ON 
(JOIN) (JOIN) 

««« m^^int data fop new CLUSTFW **• 
PwTNT OUT (II' !>E8|rtF0) 

CALL rLt■’-'(UUT^f•-) .«iUM,S*<EW#nUHT> 

CALL CL ^’P (aa,-;»*>UM*SKE»'#KUPT) 

CALL Cl t'PiKMf •?*SUM*SKEW*KUPT) 

JFTtiP'' 

E'.]n 


INIT OCON 


JO 

JO 

JO 

JO 

JO 

JO 

JO 

JO 

JO 

JO 

JO 

JO 

JO 


0 


IBRO 


01600 


610 

620 

630 


0|6A0 
6S0 
660 
_,670 
01680 
01690 
700 


0 . 
01710 

or 
o' 
o: 


720 

730 

7^^0 


017N0 
1760 
01770 
01700 
01790 
800 
810 
0IB20 
830 
01840 


Oil 

or 


880 
860 
01870 
880 
890 
900 
01910 
019H 
01930 
940 
980 
01960 
970 
01980 


01 

01 ' 
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S. 


F|ir| Mf^v 


MIOTOAN A 


f 

f 

r 

t 



MiNvu*e«c«vou 

mis oniJTms Cit* * ~ " 

«€TU»MS fH| 5. 

« fs TmP0R*«V 
Vni.«->Di^S(OFT 

ro**RON /Misr/ wo 
I AWOvUOCONf VOV. 

? IN0»VL#W^4C*NH. 

•\ AWOWlN,»MnMAX,AW6PATtVO 
* «ETTf.«*WOOF.COOLEN,SPCOR 

REAL ,h(MQ,MO)«C(Wa«MQ) 

Hf iMA Z*VOU 
VOtL«l. 
no II T»l*MO 
00 10 

J) 

to «(T*J)«0. 

n AiT.nBi, 
no ?? T*i*wo 
VOLL*V0».L*HCT.n 

fF(R(NI) .LK.O.) VOLL«-OABS(VOLU 
7*1 ./HfUn 
no ‘n\ 

on*j>«Ma-vn*7 

7 \ 

00 ??. 

Tf CIP.PW.I) 00 TO ??. 

7*»(m*n 

no <j3 j*i,oi 

7 ? rONTIMUF 

VOI. > tfOit 
Rf Tof^^j 
fN'O 


AaC«4»*l. 
SOUAR# AR 
AL TO C. 
!RITE« 


lUv 


ALSO 



WDELSM* 


NOOOlO 

Noor 



N00090 

«il!!l!S 

NOOIPO 
NO ’<130 
NOi UO 
NOOiSg 
NOOUO 
N00170 
NOOUo 
NOOIRO 
N00200 
N00210 
N00220 
N00230 
N002A0 
N00250 
N002A0 
N00270 
N002A0 
N00290 
N00300 

nooiTo 

N00320 

N00330 

N00340 

N003S0 

N00360 

N00370 
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Pt ^^i*T 


t 


f LO ! iu l!s?l ASbf N?E j! I Ath! sKf ^ 

nSQ*PQRATH«SPMVTH«5wFAC«fiRACTM«AMOFAC* ^ 

If . .uni i tu.ut AC.B.iAffM.Ua.IAtlkl.UCtli^UDn CMa 


V? 

1*^ 


^lfA»fHITI'# •^i T(A«f4,a 
common /MlJiC/ 

y lMnXVL*V*EAC»N^»TSO»FOHATMtSPMVTH*5wFACs6RACTHjAMOFAC* ^ 
AMOHlNfAM(|»*AN«AMORATtVOLLlMf»lAS«FJOtNtVRJOlN9F$IM*MOELSH« 

4 «fTTFH#'^rH)F*Ct»»i'f.EN*SFCOR 

0€n.^t* •«(MO#MO)*C<MQ*WO) 

f>0 P 

m) j*i.'*** 
m> i? 

f»»*H u • x> *C t K • J ) 

Af|,wU*SUM 

V»s;TUWM 

fnh 


MLTOOOlO 

mCtoSoso 

mCtoSoao 

MLTOOO«iO 

MLTAQOAO 

MLT00070 

mltoooro 

MLT00090 
ML Ton 100 
MLTOOllO 
MLTOOIFO 
MLT00130 
FLT00140 
MLTOOpO 
MLTOOIAO 
MLT00170 
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^II.Ft W|>P5TP FORTRAN A 


function N0RHT»<LFN6TM» 

r HMs^cuTlNr WAS RWFVlOUSty OCT# PUT WAS CHANOEO TO HAVE AN INTEOEP 
fOMMON/CtUS/ ^HlNK(12)tNARL»NTOP*NTIiS7HfNWANTfLINKflAOOO) 


MAHE 


r 

r. 


10 


r 

c 


r 

r 


THF RUrROSE of this ROUTINE IS TO ALtOCATC STORAGE SPACE 
INRUT— IfNOTH SIZE OF SPACE NECOEO IN WORDS 
0UTPUT-C4ET INOEM IN the LINK FILE TO THE REQUESTED SPACE 

NAHL > I3R0K 

CALflO ATE IN0E« TO LINK TABLE FOR HOPE STORAGE FROM SIZE 
ROPSTR • NOnilFNOTH*!?! 

CR TAaLF FOR RPFVTOOSLY RETURNER ENTRY 
tSTLoF « MOOSTR 
LTNKKT ■ LtNK<MU»STRI 
IF (LINKHT .FO, moRSTR) go TO 100 

I. |h.K TO ROWE STORAOR is in THF LAST !K BITS OF LINE ENTRY 
MORSTR m M0r)(UlNKKTf#>SS3K) 

Tf IMOHSTP .F«), (0 GO TO 100 

FMT«y R4S Rf>TMRfvFn* CHECK SITE 
KOMNT « LlOKHT/hRSaO 
U‘ (KOIIM .OF, LFNGIHl WO TO 10 

C 

S17F 

LlMKaSTL'tKJ > LI^'K(RORSTR) 

RETURN 

r 

r 

r ►0 v^TCHl^^w ►NTRV. return MORE STORAGE FORM TOP OF LINK ARRAY 

ion COMTIi'JUF 

TF ( -Or*(NrOR*?> ,NF, I) NTOP « NTOP * I 
i^uosTr s nTNr 

NTOP s NTOR ♦ I ENiiTH 

r 

r. 

r*f TA*Uf for OVFRFtdW 

IF" (NTOR ,L.T. marl > RF'TUWN 
r ’ 

»RITF (fc.?no) 

;?on FOORaT <• NO MORI- SPACE AVAILAHLF* IN LINK ARRAY* 1 
•♦RITE <:i*;»(>n) 

STor 

ENO 



881 . 

MQR00050 

ill! 

HOROQORO 
MOROO 
HOROQ 
HOROO 
MOROO 
HOROO 
MUHOO, 
HOROO 60 
HOROO 
HOROO 
HOROO 
MOROOi 
MOROOj 
HOROOi 
HOROOj 
HOP00E40 
MOR002S0 
HOR00260 
NOR00270 
H0R002R0 
HOR002Q0 
HOR00300 
MOR00310 
HOP00320 
HOR00330 
MOR00340 
MOR00350 
HOR00360 
iMOR00370 
H0R003K0 
MOR00390 
HOR00400 
HOR004I0 
MOR00420 
HOR00430 
HOR00440 
HOR004S0 
HOR00460 
MOR00470 
MOR00400 
HOR00490 
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► ttFt 




^grtMOUTlNl' *'PVS(«M.Cty| 

AM«AW*V«V*C ITFNSOR PWOOUCT) 

rO^WON /MiSf/ ^g#MM*tR*LV#N|NCLS*R*AO*lilTINIT*KROOTiCPS*OELT* 

I AM»#0UC0»»*MOVFL0*»0NrtO%»AQJIN*F.L|MTM*S|PTM«yF4C*A5JM#SBI.THt 
> IMHUVL .(^l> AC tNPT^0#»09ATH,SPMVTMj0gFAC«6PACTM* fPOFAC* _ 

AMOMIN* AlrtO«A«f AMOOATtVvnLLlP*HlAStPJOlK*V«JOIN*«SlP*POELSM# 
* HFTTfe«*MOr«F.CO»»LFN*SPCOP 

PF.AL A»-U7S» tVr<0) 
ior«ft 

00 1 «l*rtn 
00 10 .l■l•! 

LOC«LOC*i 

in AM<Lor>*A(^o ocwvm*v<J)*c 
wftiihn 

F^l^> 


HPVOOOIO 

MPVOOOPO 

HPV00030 

MPV00040 

MPVOOOSO 

PPVCOOOO 

MPV00070 

MPVOOOHO 

MPV00090 

MPVOOlOO 

•^PvrMiIin 

M>V001?0 

PPV00130 

MpvooUo 

MPvnoi*^o 

HPy00l60 

MPV00170 


i' /'■ 


< IJC I « 
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fHJf t MTVfC 


ro««TRAN A 


SU* 

f>l* 

I 



«<«Ot»TfNF MtV€ClU»AtV> 

riiM 

? MADJ 

’ l>J>«AT...., 

."vi'i jli TOf?l i tpciwsj I ?i ’ i«?8{ Jf>i!:»!5»}*») 

KS ( i{ ! Jo?5i)f I f ii I * (L ]n)S I II i #o 8 1 1 ?f 1 1 * *•- i{vi)kiA« 1*1 » * 
KS ! ■! ! t • U8si?! J1 ! : ItiKII I :sfTf ?J ’ 

KH t 0> tOClNUO) > # lWI»^><<?UlPCQNOi7J i 9 ..<CJNM3P lyfiiNif! > • 


[MOEKPTM 


n. 

I! 


(L 

(I 


NK J3i ) •OFyi7» j • <LiN« (3U * * iLViK<3l» #66Eiil«> > * 

f ON/Cp IS/ . aiNK U ? ) • NA«C tNTOpISIIsZMtNWANT f L INK < 1 400 .< > 


m ) fGWFF(si) » • (LINK 


n> 


) •LVfllN) • ILR(?> *LKl,IPT» • 


r ^mvAtf ivfir 
1 (LW<3» -»LOva*i) • 


(tv ( \ ) ttSOM) • (LV (?) «LSK€W) t (LV(3) tLOSOM) 


:5:KSh!»?S!SIJfK;5?j£^ SJ«S8 

iTHvSPMVTHtOWFACtGPACTMvAMOFACf MTVOO 


ClH’Mnfyj />irsc/ MO*M*1,tP*LV. 

? AMQ^IiOCO'JvVOVFI QfXUNFtOfi 
? ftMnK‘/t*^»Ar,*MH?sn*POPATHi . . .._ 

^ AMO^fN* AMOMAXtAMOPATtVOLLlMtBIAStPJOINtVPJOINtWSIMfMnfLPM* 

A TTFW«Mnr»F*COPLfN,SPC0P 

r.uMAO\' /STFflfcr/WA ITtC<»NLV*SKHN0*SaCHl*TPPM0*TPCMlfUPK8ND*U«KCHl* 
1 MArCtL (?) .MACfFL(?l *VACCFL(?) 

W) Al.ttP )(^s») .V (MU) ♦A(V<J,M(J) 

UI-'AI *0 

ntl J ^ Tal.HO 

no 1? ^ 

? «?OWsbl>»»*A(J«I)*V(J) 

« ti(T)s*;»t'^ 

pftdmn 

F xn 


MTVOOdtO 

HTV00040 

PTVOOOSO 

MTVOAOAO 

MTV00070 

PTVQOOPO 

MTV00090 

SIS88I78 

) •MTV001?0 
PTV00130 
MTV00140 
MTVOOi^O 
• PTV00160 
MTV00i7O 
MTVOOiPO 
HTV00I90 
PTV00?00 
MTV00210 
MTV002P0 
MTV00230 
PTV00240 
MTV00250 
MTV00240 
MTV0027O 
MTV002A0 
MTV00290 
MTV00300 
MTV00310 
MTV00320 
MTV00330 
MTV00340 
MTV003S0 
MTV00340 
MTV00370 
MTV003A0 
MTV00390 
MTV00400 
MTV00410 
MTV00420 



'■TLK: MUITI 


FOWTwan a 


r 

r 

r 


«;u«»00TI*^F mmltI(PV) 

PMkPOSF— CALL nATFIX.ALFREE,CLINITtSTATIS*CLOUMP 


SAVTAP* 

S! 5 ?I 5 : 


MAXFET 

SPLMAX 


COMMON /InFOPM/mEADU?) • MAPTAP* DATAPFt 

) PAOSIZf TAPCMK* TRNSYMt 

y noPsvM, THMsrM* maxoiv* 

^ SFPlALt TAPESV. FILFSWf 

4 MAXCLSt NOCLSZt MAXFLO* 

*•< NOTRFOt MOFFAT# NOFET?# 

4 VARS7P# VAHS24. XSIZ • 

4 N06PP. OIV5IZ# KEFPLV# 

H KHOH • XlOW # SPCriAS. , ^ 

MU) fFF TVFCnO) .FFTWCZOO) # HISVEC ( 30) • INVERT ( 30) #HESTVC(30 


NOFLO?# 

NOFETA# 


NOFLD3 
VARSIZ 
NOSPFC# MOHIST 
PRTLEV# YSIZ « 
NOCLS3. PCTSZ 


r(-MMON/CLt»STR/ IRF6IN#TOTWRO#CLSNAM#IPT#NOFLD# SYM(61) 


L NC A f . ' PRNT { 4 ) ' # KLBC • PR tME *' ' PPOli t '# ' Tol P I X • 


«.CPa »P‘i(FPI«f«OFTOT.NBOF«:OfNnUMP#LRUFn 
•AXPF, ARFA, NwDS# NWORS# NPTS# LHUF# 101 


NOCYCL 


TNTEOFO 
) fC| snam 


r#wi/n 3 « r«riT>» unur • i w i • i wi. 

TnTvLf),SVM,PRNT*PRTMF*PR0l)T,T0TPIX*5CRAMI#flUFPlX#HUFT0T 

I 



nT*^KMSlON t/PTNL^/S) fOpNCROR) •GPF.F (R9R) f ALINK ( I ) 
FUorVALFNCF (LINK n ) #ALINK (1) ) • iLINK (31 ) • INOFX (27) ) 
FOOIVaI ENCF (LiNKMl ) .LSORSOO) ) 

FOO? VaLFNCL (LINK (31 ) *LSMPF«(2R) ) # (LINK (31 ) • IDA0J(2«) ) 


(LINK (31) *MSYMM(1?) ) t (LINK(31 ) »PCUM(26) ) 
((.IMK ( 31 ) .riM(24) ) , (LINK (31 ) #CTOT (P3) ) f 
(LIKiK MU .St-FAC(?1 ) ) « (LINK (31) #WADJ(?0) ) 
(LINK ( > ,OPWOR( IH) ) - 


• (LINK(31) #PRIPCM(2'5) ) 
(LTNK(3l) #PROP(22) ) # 

• (LINKOl) tW(19) ) • 
(LINK (31) fV0LlN(16) ) , 

• (ilNKOl) #PQRAT(13) ) • 
« (LINKOl) tPST(ll) ) « 

(LINKOl) ,VRIN(7) ) . 
(LINKOl)#0f)EN(fl))# 


....... i; r- ( M I ) 

rOMMUN/CLMS/ JONK (1?) .NAHL #NTOP#NTBS7Mf NWANT*L INK ( 14000) 
FN=;T0N -nrAP( tLM3) #LV0) 

IVALFMCF (LR ( I ) tLVRIN) . (LR(2) #LKU«T) . ^ , 

(( W(3) «Lr vAO) . (LV ( I ) #LS'JM) * (LV(?) #l.SKFw) « (LV (.3) .LOSUM) 


ri)WMON /Ml SC/ Mrg,MM,LP#LV*NINCLS#MXARfWT INIT*KPOOT#EPS#OELT* 

» AM(),of)C0^'. xoVFt.O* <0NFL0*WA0JIN#FLIMTH#SFPTH#V> AC* AMM#SRLTH* 

? IWf)XUL«w‘^AC*NPT‘;0#POWATHt5PMVTH#DWFAC*6RACTM#AMOFAr* 

3 AMfU.lN.AMOMAK# AMOPAT* VOLLIN#BIAS#PJOIN«VRJOINt WSIM#W0£LSM* 

4 HF TTtR#Mfir)F,CO»LFN*SPCOR 

roMMON /iTHAP/WAlT»CnNLV#SKBNO*SKCHT#TRPND*TRCHl*URKRNO*URKCHI# 
) PACCFI. (?) .MAcrFL(?) ,VArr.FL(?) 

niMFNSION PV(l.l) 

CALL OATFTX to InTTIALIZF VAPIABLFS 
CALL ffAlU* 
mQs nj(^FF AT 
MMs (M(>» (MU* 1 ) ) /? 

CHL ALFRFK to FPPF STRING STARTFO BY KLBC 
CALI Al F wFF (KLBC*NINCI.S) 

CALI CLI^'IT TO INITIALOF THF CLUSTFRING ALGORITHM 
rAjJ. CL INI r(KLBC) 
h KfT( T=kLHL 

r.Alt STATTS j(> classify FaCm POINT AND DPOATE STATISTICS 

call STaTIS(KL'3C#PV.GFN(LS0M) *GF.N(LSKF'V) #GEN(LK0RT) *GFN(L0S0M) « 
« GFN(LOVAR)) 
k: PwpiT OUT ALL CLASSFS. 

PL 0 UT =3 

CAtl. CL 0 (<MP Tm ppIMT uLL classes FOB ENTIRE TRFE UNDER Kl.BC 
rAi,.L ci.ooMt-' ( klhc) 

PwOllTsl 

PFTOB'" 


MDLOOOIO 
MUL00020 
MUL00030 
HUL00040 
•MUL00050 
MULOOOBO 
•HUL00070 
MULOOOBO 
•MULOOORO 
fMULOOlOU 
fMULOOl 10 
MuCoolpo 
.MULOOn^ 
)MUL00l4U 
MUL00150 
MULOOIBO 
MUL00170 
MUL00J.B0 
MUL00190 
MUL 00200 
MUL00210 
MUL00220 
MUL00230 
MUL00240 
MUL002SO 
MUL00260 
MUL00270 
MUL002BO 
MUL00290 
MUL00300 
MUL00310 
MUL00320 
#MUL00330 
MUL00340 
MUL00350 
MUL003G0 
MUL00370 
MUL003B0 
MUL00390 
MUL00400 
MUL00410 
MUL00420 
MUL00430 
MUL00440 
MIJL004S0 
MUL004G0 
MUL00470 
MUL004B0 
MUL00490 
MULOOSnO 
MUL00510 
MUL00520 
MUL00530 
MUL00540 
MUL00550 
MULOOSNO 
>fUL00S70 
MULOOSflO 
MUL00590 
MULOOGOO 
MUL0061 0 
MUL00620 
MUL 00630 
MUL00640 
MUL006S0 
MUL00660 
MUL00670 
MUL 00680 
MUL00690 
MUL00700 
MUL 007 10 
MUL 00 720 
MUL00730 
MUL 00 740 
MUL00750 
MUL 00 760 
MUL00770 
MUL00780 
MUL 00 790 


C ■ ^ 




B-na 


f Tl> ! 


'Mtl TI A 




(>1UL00800 


Pill- 5 *'VEC 




r 


r 


SUI^HOUTINI' MVtC<U*A*V) 

COMMON /MlliC/ MOtMM*LPtLV*NINCL 5 *MXARtWTINIT*KROOT*EPS*DELT* 

I AM«,oorON*xOVFLO,)OiNFLOtlrfADJIN*EClMTH*SFPTMfVFACiAMM* 5 §LtH* 
* IMI)Xy/L«WFAC«MMTSO«POHATH«SFHVTHf 5 lffFACi 6 RACTMf AMOFAC* 

< AMOMiNtAMOMAXvAMORATtVOLLlMtBlASvPJOINvVRJOrMfWSIMvWOELSMt 
k HETTER*MOf)F.roRLENtSPCOR 


RF^L«R tJ(MO) •V<MO» .A(MOfMO) 

wf-aL*« 
no n 1*1 

SiJMatO. 

no li* j*i»Mn 

1? SlJMsSOM*A n,J)*V( J) 

IHUsSUm 

PFTURM 

PMD 


MVEOOOlO 

MVE00020 

MVEOOOlO 

MVEOOOAO 

MVE00U50 

MVE00060 

MVE00070 

MVF.OOOMO 

MVEOOOQO 

MVEOOlOn 

MVEOOllO 

MVEOOlPO 

MVEOOllO 

MVEOOUO 

MVF.00150 

MVE00160 

MVE00170 



B-60 


V 


PtlF: K'hfftNO A 


FllMCTTOw NRAOOOlO 

. *>aTA MMjD.MOL T. INC/21474H369t7313Bl067« IPSASeTm/ NRA00020 

( M»xMOn(NM*Ml)LT»INr,MOOO) NRA00030 

njraN0*TAHS(N)O NRA00040 

‘^FTURA* NRA00060 

FNn NRAOOOAO 


( 

( 

( 

( 

( 

V 

( 

( 

( 
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f * I 


f-'IlF; OkHl FO♦JTkA^^ A 


<;U«POUTlNfc OPOl (A*n*I2*N) 
niwpNSTON A(N{ 

IXSTOpsI^-l 

IF {(IXSTf»P-in .i T.n GO TO 210 

00 200 j*ii»ix<;top 

IF (APS(A(J) ) .LF.APS(A{JPn ) ) GO TO 200 
COttYsA U) 

A(J)*A(JPl) 

A(.IPn*COPY 

Ks.l 

ICO KsK-1 

IF (F*LT.m GO TO 200 
KFl sK« 1 

TF ( APG(A(K) ) ,LF.A8S(A(KP1) ) ) GO TO 200 
COPVsft (K ) 

A(K)=A(KP1> 

A<KPl)sCOPY 
GO TO ISO 

?on roMTlNti*- 

?U) rOMTliMUF 
PF.TUP^! 

FinjO 


ORDOOOlO 
ORD00020 
OR000030 
ORD00040 
ORDOOOF ) 
OROOOC ' 
OR00007;y 
Of'OOOOHO 
OROOOORO 
C'RDOOlOO 

oRooono 

ORD00120 

ORDOOnO 

ORD00140 

OROOOIGO 

OR000160 

ORD00170 

OROOOIGO 

ORDOOlPO 

OROO02O0 

ORD00210 

OROO022O 

ORD00230 
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piif: PAriMP foptpan a 


r* 

r* 

r* 

r* 

r* 


r 

r 


r 

r 


rtt 
f « 
r» 
r« 
c« 
r« 


SttopOUTlNJ CLU«1MP 

ThF PlIPHOjjg OF CLUSMP IS TO PMINT THF CLUSTFM HAP, THE CLUSTER 
HA*< EACH PIXEL REPRESENTED BY A SYMBOL, EACH SYMBOL 
P^PMC Ff'iTS A CLUSTER TYPE 

implicit INTF'^ER (A-Z) 

COMMON /APWAY/TOP, ARPAY(lBOnO) 

DT MENS I OH IPFFAT(?> 

UIpFNSION PUFERTUf COU3,'tlO)* OUT(110)« EL(«>* ELUlNE(6>* 

I CL11STN( n iH , NHLKTbU, NHLKT(61) 

COmpoN /OLOBAL/Hf AO(f3) , MAPTAP* OATAPE* SAVTAP# RMFILE 
\ OmKE Y. nISFlL*HlSKeYfTWFORM*ERIPTPfFQPKEY*MAPUNT#NOFILEfORUMAO* 

? ASAYFL«NHSUN.NHSTFI « OUPSYMt THRSYM* MAXOIV* MIN 

COMMOn/CLUSTP/ IhFO 1N,TOTWPD*CLSNAM*IPT*NOFL0, SYH(61) f 
\ LNCAT, PRNT(4) • KLBC * PRTME* PPOUT# TOTPIX* 

P SCPA.M »PUFPI » ,HUFTOT*NrtUFSDtNOUMP*LRUFO 
U '>*AXHE, aPFA. N,(ns, NWORS* NPTS* LBUF, I01,N0CYCL 

TMTkOfcP T(»l >.IPU, S YM, PPNT, PRTMF fPROUT, TOTPIX, SCP AMI, BUFPIX,BUF TOT 
1 tCLSNAM 



fONf'ON /Misr/ m('-,mm,LP,LV,NINCLS,MXAR,RTINIT,FPOOT,EPS,DELT, 

\ AMO.oiJf ON, »0VFL0, X»)NFLO,wAOJIN,ELIMTH,SEPTH,VFAC,AMM,SBLTH, 

^ fA'OXVl «m(PAC,NPTL(),P0«ATH#SPMVTH,0WFAC,6PACTM, AMOFAC, 

AM((M IN, Amomax, AMOPAT,vni L IM,H1 AS,PJOIN, VPJOIN, WSIM,Wf)ELSM, 
A MF TTEW'MonF .COPLFN.SPCOR 


1 


Ou /STP/i'^-‘/'VMT,CONLV,SKMMO,SKCHl ,TPBND,TRCHI,URKHND,UWKCHI 
PACCH. (P) .macCKL (?) ,VACCEL(?) 


LO^'^lCAl. nMM 
PEAL h"lFF^'' 


rOMlVAl 

Full I VAl M'lLE 
ELUIVAI.I-.MCF 
FOni YAI.FM.E 
FPIIT VALEMCF 
E PMI v/aLEnCF 

PUIII VAl I- 


E IFI O 


(COL ( 1, U , array (?001 ) ) 

(i)liT(n ,ARRAY (?4n0) ) 

<CLUSTN( 1 ) f Af RAY (?510) ) 

(MHLK (1) . ARRAY (?6?0) ) 

(rtPLKT( 1 ) , array (?730) ) 

(HIIFER( 1 ) , array (3001) ) 

(FI OINF ( 1 ) ,LINS1R) , (FLI)TNF(4) ,SAMSTR) 
(FLDIMF (?) ,LINFN0) , (FLOINF (S) ,SAM£NO) 
(El DIME (3) .LINING) , (FLDIMF (6) ,SAMINC) 
iNFOPr^ATIOM STORED AS FOLLOWS 


ARPAY(l) sETRST FIFID NAPF FOR THIS CLASS 

}?) =Nli. OF VERTICFS FOR THIS FIFLD (NV) 
(3)-( T+NV»?) = ACTUAL VERTEX NUMBERS 

(T|,NV*?) sTOTAL PIXELS FOR THIS FIELD 


PACOOOIO 
PACOOOPO 
PACOOOIO 
PAC00040 
PAC00050 
PAC00060 
PAC00070 
PACOOOAO 
PACOOOPO 
PACOOlOO 
PACOoilO 
PAC00l?0 
PAC00130 
PAC00140 
PAC'iOiSO 
PACOOllSCi 
♦PAC00170 
PAC00180 
PAC0019C 
PACOOPOO 
PAC00210 
PAC00220 
PAC00230 
PAC00240 
PAC002SO 
PAC002O0 
PAC00270 
PAC002RO 
PAC00290 
PAC00300 
PAC00310 
PAC00320 
PAC00330 
PAC00340 
PAC00350 
PAC00360 
PAC00370 
PAC003B0 
,PAC00390 
PAC00400 
PAC00410 
PAC00420 
PAC00430 
PAC00440 
PAC004S0 
PAC00460 
PAC00470 
PAC004fl« 
PAC00490 
PAC00500 
PACOOblO 
PAC00620 
PAC00S30 
PAC00540 
PAC005S0 
PACOOSiSO 
PACG0670 
PAC005B0 
PAC00b90 
PAC00600 
PAC00610 
PACO0B20 
PAC00630 
PAC00640 
PAC006S0 
PACOO6B0 
PAC00b70 
PACOObPO 
P AC 00690 
PAC00700 
PAC00710 
PAC00720 
PAC00730 
PAC00740 
PAC007S0 
PAC00760 
PAC00770 
PAC00780 
PAC00790 


B-63 


FTLF: PACLHP FORTRAN A 


r* 

c 

r 

r 

r 

r 


(♦♦NV*?)-no*NV*2> 

HAT A BLANK/* •/ 


rtOINF BLOCK FOR THIS FIELD 


INITIALIZE < 

•« 


r, 

r 


r* 

r 

r 

r 

r 

r 

c 

r 

c 

r 

r 

r 

C 


rtt 

r<» 

r* 

r 

r 


r 

r 

r 

r 

c 


*♦ INITIALIZE vlUTPUT FILE 
IPHNIT * 1<S 
IHCHAN X 1 
IPFFAT(l) X I 
IPFRMT X 

TPSAMP X (SA**END-SAM3TR»/SAHINC ♦ 1 
FdOTAP X 0 

UTATxn 

IPTxl 

MAKPnP a K1 
no Ial«MA)(POP 
pc, NMLKTdlxn 

CALL maximum HIJFFFW MZF. THAT IS AN EVEN NOHHER OF PIXELS 
TOO X IBOOO 

MAVPUF a (TOP - 3000) /MO * MO 


no ^00 iFinai,NOFLn 

WVITF HFAOIMN hOW NEW FILE 

call WPTHt^O (T»CHAN*IPFtATtIPSAMPf IPFRMT*IPUNIT) 

XTPA X SFSMEMI9 ALPEADV PROCESSED 
ifTOAxO 

MFIN a FALSJ- IF ONLV 1 PAGE NFFOEn 
NFTNa.FALSf., 

MO a NO OF VEPTICPS FOR THIS FIELD 
NVaAkPAY( 1PT*1> 

TOTSAM a TOTAL PIXELS FOR THIS FIELD 
TOTSANbA«wAY( IPT* 2*NV*a> 

MOVE OATA oeMNING LINES AND SAMPLES 
OU 30 TaJ,^ 

FLO INF ( DaAPPAY ( IPT^?*I^NV«?) 

30 rONTINDI: 

Ml output HIIFFFW 

DO 4 0 .a I, no 
AO nuT(l)aHLAWK 

7Ft-n COUr'T OF POINTS IN CLUSTER 
on AS Ta\,KAXPOP 
4*^ N«|.K(I)aO 

CmFCK TF AU OF CLUSTFR MAP CAN FIT ACROSS ONF PAGE— ONLY 
SYMRoLS apt PRINTED ACROSS THF PAGE FOR EVFRY LINE. THE 
WILL PRINT ThF ENTIRE CLUSTER MAP IN 110 SYMBOL SEGMENTS 

c;fT STawTTND onrtRFSS AND ENDING ADDRESS FOR LINE 
STCLMaSTMSTP 
FNCLMaSAMFND 

TK for MORF thin no segments specified and RFSET maximum IF 
K)HM a FaI SE* TF I LINF TRUFt IF 2 OR MOPE LINES 

IF ( ( (Fnclm-SamSTR) /SAMINC* l-XTRA) ,LF, 110) GO TO NO 

F^'rLMa (1 OO^XTRA) *SAm!nC ♦ SAMSTR 

MFlNa.TPUh. 

* RFA!) 1 BUFFFW OF DATA * 

T«.»R() a total words LFFT TO HE READ 
T/R(i a TOTwPD 

»F AO FULL mUFFFP of DATA UNLESS ONLY PARTIAL BUFFER OF DATA LFFT 

cKlWUlv = iv-AXRUF 

TF (TwMU ,LT. MO*<RD) NOWRD a TWRO 
T'"»fGTM IS hFUInmINO of scrambled DATA 


110 

PROGRAM 


PACOOROO 

PACOOBIO 

PAC00820 

PAC00830 

PAC00840 

PAC00850 

PAC00880 

PAC00B70 

PAC00680 

PAC00890 

PAC00900 

PAC00910 

PAC00920 

PAC00930 

PAC00940 

PAC00950 

PAC009NO 

PAC00970 

PAC00980 

PAC00990 

PACOIOOO 

PACOlOlO 

PAC01020 

PAC01030 

PAC01040 

PACOIOSO 


PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 


PAC01190 

PAC01200 

PAC01210 


PACO 


ONfl 

070 

080 

090 

100 

110 

120 

130 

140 

ISO 

IfeO 

170 

180 


2?0 


PAC01P30 
PAC01240 
PAC01250 
PAC012NO 
PAC01270 
PAC01280 
PAC01290 
PAC01300 
PAC01310 
PAC01320 
PAC01330 
PAC01340 
PAC013S0 
PAC01360 
PAC01370 
PAC01380 
PACni 390 
PAC01400 
PAC01410 
PAC01420 
PAC01430 
NFCESSRVPAC01440 
PAC014S0 
PAC014(S0 
PAC01470 
PAC01480 
PAC01490 
PACOlSOn 
PACOlblO 
PAC01S20 
PAC01530 
PAC01S40 
PAC015S0 
PACOISNO 
PAC01S70 
PAC015R0 


FU^ : 


r 

r 

no 


1 on 
r 
r 

no 


r* 

1?0 

•^on 

SI 0 

r' 

« 

r 

r 

f 

r* 

c* 

c 

r 


r 

r« 

r« 


r 

r« 


r 

c» 

14 0 
'41 

r 

r 

r<» 


(*<> 

r» 

r« 


m? 

r» 


ParLMP FOt^T««N A 


CALL PREAO (IHEttIN« RUFER. NOWRD# DUMMY) 
aORFSS * IRFGIM ♦ NDWRO 
TwOf) ■ TmRO > NOpPO 
RUFAD » 1 

♦** SFT COLUMN HEADINGS ••• 

CONTINUE 

.j«n 

no 100 I*SAMST»«SAMFNnfSAMINC 
TF< I .IT. STCLMIOO TO 100 
!F( I * FNCLM)O0 TO UO 
J*.»*l 

COL(l.v))sI/ino 
COl (4!»*.J>*MOOn.lOO)/10 
COI n.J)aMOO(I,10) 
rn4<TluiiE 

• w»iTfc HFAOINGS *•’» 

1 HTSsvl 
WPTTF (A,^5nO) 

WPTTE (S.hEAP) 

w*PTTf: (S.SIO) ARRAY UPT) .TOTSAM 
PRINT column NUMhFRS for CLUSTER MAP 
no 1?0 lsl*i 

WRITE (S,r>?0) ICOLd *J) tjsl fLPTS) 

RPTTF (F,S00) 

F(lPMAT(/) 

Ff)RMAT (//?^<*A*,,//I TOTAL NUMRFR OF POINTS IN THIS FIELD»fl7) 
format llol n 

«»»•«« PROCESS ONE LINE OF DATA 
no 300 L fMEsLIMSTRfLlNENOtLININC 

TAIL FOLIUT to obtain FIELD INTERSECTIONS FOP THIS LINE 
CALL FOLltsKAPRAY ( IPT»2) fNV.FLfLINE»SAMPS*NI ) 


PAC0I5P0 
PAC0160Q 

mi 

01630 
Q1640 
016S0 
J01660 
PAC0I670 
PAC016R0 
PAC016R0 
PAC01700 
PAC0I710 
PAC01720 
PAC01730 
PAC01740 
PAC017S0 
PAC01760 
PAC01770 
PAC0178) 
PAC017P0 
PACOlfiOO 
PACOieiO 
PACOIRPO 


PACO 

PACO 

PACO 

PACO 


PAC01R70 

PAC018A0 


««»»» 

la) fOl .? 


PROCESS EACH INTERCEPT 


PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 

PACO 


f)f) ?00 
MftFXaO 

Save THF Hf - sinning ano end numbers of this INTFRCEPT for array 

which is PRriTFU 

IF a(H ( I )-SAMSTR)/SAMlNC ♦! 

If a(FL(nn-SAM5TR)/SAMINC*l 

IE {MOfMSAMSlP.SAMlNO .NE. MOO (FL ( I) tSAMINC) ) IB =IB ♦! 

T^'PTSa ( lE-lH* I 1 

TF(TR ,GT. IE ITNPTSaO 

IF(IH ,GT, ?h ) GO TO 140 

CHECK IF IHTERCFPTS ARE RlTHlN PRINTOUT LIMITS 
fFlEUn .(iT. FNCLM) GO TO 140 
If(El (I^l) .LT, STClM) TO 140 
GO TO 150 


630 

840 

8S0 

840 


8 P 0 
90 n 
910 
9?0 
930 
940 
9 S 0 
960 


THPSE CAWPS ARF USED TO 
SR4CFS OR APE AS PI ITS IDE 
COMTINIIE 


SET UP THF OUTPUT FOR BLANK LINFS OP 
OF PRINT LIMITS 


IF (!♦' .ME 
FPO^AT < 1 ») 
GO TO IRO 


NT) RRITE (6,141) 


r()NHNHE 

PE S V f sfc f- 1 ' IN I MG A ND 
E XCEEDS PH I NT LIMIT 
IF(E|. (T) .GF. STCLM) 

T*-fl=lH 

TPalSTCLM-SttvSiH) /SAMINC*! 
IF (MPp (Sft »STR.SAMlNC) .NE, 


FND NIimreRS for array out if INTERCEPT (S) 
GO TO IS2 


MOr)(STCLM,SAMINC) ) TRalB^l 

IN INTERCEPT (3UT 


S70WE mijmHEP of extra POINTS THAT ARE 
OUTSirF The. RHIMT LIMITS ON LEFT SIDE 

AiOFXs ( TH-IHO) 

miFAf)=Bi.lF Ap^r.OF X 
T IPTS a TNRTS - NOFX 

TF(F| (!♦)) .GT. ENCLm) IEa(FlMCLM-SAMSTR)/SAMINC*l 


ARE 


PAC01970 
PAC01980 
PAC01990 
PACOPOOO 
OUTPAC02010 
PAC02020 
PAC02030 
PAC02040 
PAC02050 
PAC02060 
PAC02070 
PAC02080 
PAC02090 
PAC02100 
PAC02110 
PAC02120 
RAC02130 
PAC02140 
PLANKPAC021S0 
PAC02160 
PAC02170 
PAC021G0 
PAC02190 
PAC02200 
PAC02210 
PAC02220 
PAC02230 
PAC02240 
PAC022S0 
PAC02260 
PAC02270 
PAC022B0 
PAC022P0 
PAC02300 
PAC02310 
PAC02320 
PAC02330 
PAC02340 
PAC023S0 
RAC02360 
PAC02370 


♦^n.F: OAfLMP foeiWAN A 


c* 

r* 


*;FT P«INT LIMITS IN THE 1-UO LIMITS WHEN THE NUMBERS WOULD 
ON ANpTHFW PASS THP0U6M THE ORTA 


MO ON 
lA«lH-»rT»A 
ie»|f-kt«a 
IF(f« .GT. IF) 
NSFTS*TE-lH4l 
NPNTS*NSETS*MO 


GO TO 140 


r* 

r* 

r* 

r 

r 

r 

r 

r 


c 
r 
»S7 


ISS rOWTINUF 


CHFCO IF 'JFFOFn DATA IN THIS INTERCEPT IS IN TWO BUFFERS 
IF (PUFAO ♦ NPNTS ,LE. NOWRDI 60 TO 170 

** complete line is not in BUFFFM *• 


TS 


ANV OF l.Ih'f IN 
niFF s HUFAD - 
IF (PUFAO .IE, 


CURRENT 
NlJy^RO - 
NO^PO) 


HUFFER? 
60 TO 157 


1^0 
r 


NONE OF rURPFNT LINE IS IN HUFFERt 
SKIP OVFR FXTnANEOUS POINTS 
AORESS s AUPFSS ♦ OIFF 
TWRD s T«Hl) - niFF 
ROFAO s 1 
GO TO 16S 

SOMF OF CORHhNT PMFFFP IS NEEDEOt 
KOttNT s nOWPD - muFAD ♦ I 
OU IF»(t I s l.KOUNT 
WijFFPd) = RUFFF<RUFA0) 

PUFaD = HUFAO ♦ 1 


SET NEW HUFFER POINTER TO 


MOVE IT TO beginning OF BUFFER 


r. 

r, 

r 


RFSET HOFFP AjiPES TO 
QIIFfti* s Kr•Ll^iT ♦ 1 


FNO OF OLD OAT A 


r 

r» 

r# 

170 


PFAO OMA INTO PamINOFP OF RUFFFR 
MOiVpO s MAXPUF - RHF AO ♦ 1 
Ih (TWRD ,LT, rUHPP) NOWHO = TWRO 
IF (NOVRO .IF. 0) GO TO 1F.H 

CA1.L PPEAO(ApPFSS*HUFFP<HMFAn) /^NOWRD«STAT) 
AORF.SS s AOPF’SS ♦ NOWWO 
Tv.o(» a r^po - Mowpn 
0|<F AI> 1 


SUBSCRIPT SO 
RET OF FL»S 


r* 

r* 


• • 

PFSF'I 

tF 


CAM- CLOST TO OHrAiN THE CLUSTER 
SYMBOLS CAN HF COMPUTFO FOR EACH 
START (STCLM) AND FNO(FNCLM) 
rOMTlNUF 

FORMAT ( • T*-. IF.CLUSTN I -1 0 • • 2IGt / * 1 0 1 7) 

CALL Cl.UST (HUFFh(PUFAD) ♦ NSETS* CLUSTFU 
wPIlE UnF of data on new file ** 

■ FNO uF FTI.E INDICATOR IF LAST RECORD 

(I INF .GT. (LINENO - LININCM ENOTAP * -1 
IF (XTPa .to. n) CALL WRTLN (CLUSTNtENOTAP) 


THAT THE 
WITHIN 


THE 


CLUSTER 


KLBC* GENTLS^ MM 


l.aO 


r« 


17^ 


?7S 

R?7S 

r 

?A0 


store SYMRU) S for OUTPUT 

no 173 K=IR.TF 

l.=L*l 

UUMsCLUSTFtd ) 

SET SYMrOl — The SUhSCRIPT fop SYH is RFSET TO I THROUGH HAXPOP 
MTFMP s NSVMFl(NUM) 

Is‘i00 (MSYF ii (IMUG) -1 , HAXPOP) ♦! 

TF ( J .LF. n ) J - 47 
I.NCATsMAaO (I.NCAT* J) 
nUT^F ) rSY'^'U) 

cflwfc THE f^OMHFP OF PIXELS ASSIGNED 

NPLK(J)aNMLK( «) ♦! 

««« PPTNT line of OUTPUT AND BLANK 
WPITF (6*?7S) LINE. (OUT (K) .Ksl .LPTS) 

TF (LIME .LF. 4) WRITE (3.9275) LINE. (OUT (K) .K=I .LPTS) 

FupfaT (2i.TS.2X.U0A1) 

FORMAT (2X. IS.2X.50A1./.9X.50A1 ) 

DO PRO Ksl.llO 
OUT(K) = BLANK 


TO 


THIS CLUSTER 
BUFFER 





EXCEEOPAC023B0 
PA^0|390 

PACol 
PACOJ 
PACOl 
PAC02440 
PAC02450 
PAC02460 
PAC02470 
PAC02480 
PAC02490 
PAC02S00 
PAC02510 
PAC02520 
PAC 0 H 3 O 

PAC02540 
PAC025S0 
PAC02560 
PAC02570 
PAC02580 
PAC02590 
PAC02600 
PAC02610 
PAC02620 
PAC02630 
PAC02640 
PAC026S0 
P AC 02660 
PAC02670 
PACO26B0 
PAC02690 
PAC02700 
PAC02710 
PAC02720 
PAC02730 
PAC02740 
PAC02750 
PAC02760 
PAC02770 
PAC02780 
PAC02790 
PAC02800 
PAC02810 
PAC02820 
PAC02H30 
PAC02840 
PAC02850 
PAC02860 
PACO 28 70 
PAC02680 
PAC02B90 
PAC02900 
PAC02910 
PAC02920 
PAC02930 
PAC02940 
P AC 02950 
PAC02960 
PAC02970 
PAC02980 
PAC02990 
PAC03Q00 
PAC03010 
PAC03020 
PAC03030 
PAC03040 
PAC03050 
PAC03060 
PAC03070 
PAC030R0 
PAC03090 
PAC03100 
PAC03110 
PAC03120 
PAC03130 
P AC 031 40 
PAC03150 
PAC03160 


B-65A 





► Tl>* 


PACLM^= FOPTPAN a 


I«>n PUFAi» « rtliFAf) ♦ TNPT?; 
r 

?00 rOMTiWUF 
r 

100 rOMTINUF 

c 

r •• end of GENFPATION OF LINES FOP 1 PAGE *• 

r CHFCK FOP AUDIT IONAL PAGES 
110 TFI.NOT, »^F!N)GO TO 400 

r mihTIPLE PAUtS* PFSET HOUNOAPIES 
XTPA«<PNCLM-SAMSTP)/SAMINC ♦ 1 
STCLM*Fr^*Cl 
PNCLP*SAPtNO 

nfin«.falsf. 

r-0 To PWUf»-SS audit iONAL PAGES 
(fD TO 4 0 

*00 rONTiNUt 

** FWO OF CLUSTER MAP •• 

*♦ PRINT COUNTS •* 

Ito *feS 1*1 ♦'•'■A* POP 
44S M*sLKT i 1 1 sNHL1« T ( II ♦NPLK ( I » 

W»<TTE <4,S701 

^70 FOPM4T IPOINTS PFP CLUSTER IN THIS FirL0»/3Xf tCLUSTER* ♦ 
* Sy#»«VMMOL»«P>**POINTS»/» 

LNCAlsf^UOiLNCAT-l *MAXPOP» ♦! 


no SRo rsi.iNCAT 

Kttn w«ttf (O*sno) UsyM(i) ,mmlk(I) 

i,ao FO'^PAT (nx* !?• inx*Al.7X, IS) 

lPT*lPT*M*tMV*^ 

Ht)ft rONTlNIlF. 


r. 

c 

r 


r 


r. 


»<PITt A')) 

i>'RTTF(l* MCA! 

7R0 FOt>MAT(//* TctTAL NiJHHFR OF CLUSTERS a* *13) 
TuTPTSsTuT'«iPr)/«o 


write (R*74iM TOTRTS 

740 FORMAT (/• TOTAL NUMRER OF POINTS *»*TS) 


write (S*77i») 

770 FOPMATI//' ri.llsTEO 


SYMROL POINTS IN CLUSTER*) 


no 77S JsI.InCAT 

77K write (4.7M)) J*SYM(J) *NHLKT( J) 
7^0 FORMAT (4X* I >»*RX, A1 . 1 l)K * 17 ) 


RFTIIRM 

TMn 


r« 


PAC03170 

PAC03180 

PAC03140 

PAC03^00 

PAC03P10 

PAC032P0 

PAC03230 

PAC032A0 

PAC032S0 

PAC03260 

PAC03270 

PAC03280 

PAC03290 

PAC03300 

PAC03310 

PAC03320 

PAC03330 

PAC03340 

PAC033S0 

PAC03360 

PAC03370 

PAC033H0 

PAC03390 

PAC03400 

PAC03410 

PAC03420 

PAC03430 

PAC03440 

PAC034S0 

PAC03440 

PAC03470 

PAC034P0 

PAC03490 

PAC03500 

PAC03S10 

PACO 35?.) 

PAC03530 

PAC03540 

PACO 3550 

PAC03560 

PAC03570 

PAC035R0 

PAC03590 

PAC03600 

PAC03610 

PAC03620 

PAC03630 

PACO 3640 

PAC03650 

PAC03660 

PAC03670 

PAC036R0 

PAC036Q0 

PAC05700 

PAC03710 

PAC037P0 

PAC03730 

PAC0374Q 

PAC03750 

PAC03760 

PAC03770 

PAC03780 

PAC037Q0 

PAC03R00 


FlLiJ : 


l«»90 

7777 

777- 

71P7 

?0? 

?01 


1.’ 

14 

c 

4? 

f' 




or»<M4T F0OTW4N A 


AW (4,4) ,C<4) ,i9(4>fU(4) tV(4) 
J*«(4) fTUO) ,A(4,4) 

W(4,4) 


'*■ i I , J ) * « s 


INPUT*) 


f^I'^ENSION 
HHFNSION 
n!»*tNSiuN 

Nb4 

NM«N-t 
IN«1 

no 1999 KKb),N 
JM(KK)*KK 
rOMTlNUF 
no 3 l«i,4 
00 4 j«l,4 
W ( I , J) 

IF (l.FN.J) 
rONTINUF 
fONTlNlIt 
WPITE II^,?777) 

FOPmAT (//?«, *STAwT 
PFAO(l‘^,777«U T(I) 
f OOMAT (Fin. 4) 

•vPTTF (<s,77H7) T(n 
FOPMAT(//PX,*T*»,f in,#>) 
no ?01 1*1 ,N 
no ?o? 

<K*KK* 1 
A (T»J)sT (KK) 

CONTINUE 
rONTlNt M- 

FALL MTl-(,Sh(A. •i.AW.N.N) 
no I? J*1,N 

0 () n 1*1 .M 

AWTJ*AW( I *J) 
lMT)sW(I f J)*«WT J 
W(I)*AWIJ**? 

FONT 

C( ))*S')PSUi*'(M.N.rU 
R(J»sSUPSltM(V,N.N) 

FONTTNUF 
no 14 Jsl.o 
U(.))sp( J) 

COMTINUF 
FOMTINUF 

RmiM=«;uHSu-*((i.M.i\0 
LOOP 
FUN T1 OOP 
'VwTTf (A»4^>) 

FOR-ftT (//PX. *4FT(:W 3<S CONTINUE, 
no in Ksi.i 
CALL »*Tnu»: X (H>, JM.K.N) 

T*;sjM(K) 

IF (P( IS) .t> .0,0) 00 TO 60 
PmINsH (IS) 

TTF6ATTVF SDH LOOP 
no 31 InsH.DH 
T.11 = lP*l 
IH*JM( I 11 ) 

no 1 ? I* 1 .'M 

D(I)sAW(I,IS)*AW(I.IH) 

V(I)=W<1,IS)4AW(1,IH) 

CUNT I HU*' 

WAAVsSUPSDM(U.N,N) 

WAWsSllPSUM ( V.N.M) 

OhI sWAAw-P,*C(IS)«WAW 
OFL=(OFL/P(TS) )**? 

PPSs,Ol*(.OI^(P(IH)/P(IS) )-l.) 

IF (nFL.LT.FPf)) on TO 31 

f,amma=C ( IS) 

pHOrPM IS) 

no 33 vJsl.NM 

F(»RM ITPWATTON math IX 

FM) l=p ( IS) ♦ (C( IS)-0AMMA)**? 

FM??!=PUH) ♦ (C ( TP) -OAHma)**? 

SM)?sWAAW-?.«OAMMA*WAW 

FiCFNsn.S# (SMll ♦SM2P-S0PT ( (SMI 1-5M2?) **?44.*SM1?**2) ) 
Xl=SM2?-PlOFf.' 

x?=-snip 

nf L*S<JPT (X 1**?*XP**2) 

XlaXl/DFL 

X?=K 2 /nFl 

IF (P lOf H.lF.O.O) 60 TO IS 


W COLUMNWISF*) 














PCMOOOlO 

PCHOQ020 

PCM00030 

PCMOOOAfl 

PCM00050 

PCM00060 

PCH00070 

PCMoooeo 

PCM00090 

PCHOOlOO 

PCMoono 

pcpooiao 

PCHOOllO 

PCP00140 

PCMOOISO 

PCMOOlfeO 

PCM00170 

PCMOOlflO 

PCHOOlQfl 

PCM00200 

PCM00210 

PCM00220 

PCM00230 

PCM00240 

PCM00250 

PCM00260 

PCM00270 

PCMOOPPO 

PCM06i:90 

PCM00300 

PCM00310 

PCM00320 

PCM00330 

PCM00340 

PCP00350 

PCM00360 

PCP00370 

PCM003flO 

PCM00390 

PCM00400 

PCM00410 

PCM00420 

PCM00430 

PCM00440 

PCM00450 

PCM00460 

PCP00470 

PCM004R0 

PCM004P0 

PCM00500 

PCMOOblO 

PCM00520 

PCMOOblO 

PCM00b40 

PCM00550 

PCMOObeO 

PCM00S70 

PCMOOSPO 

PCMOObPO 

PCM00600 

PCM00610 

PCM00620 

PCM00630 

PCM0n64G 

PCM00650 

PCM00660 

PCM00670 

PCM00680 

PCMO0690 

PCM00700 

PCM00710 

PCM00720 

PCM00730 

PCM00740 

PCM007S0 

PCM00760 

PCM00770 

PCM00780 

PCM00790 
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Pll F 


PC“MAT FOtfT»AN A 


FP*»rM*| 

IF (£I«F.N.r»T,PHO*e»«CM> 60 TO 35 
DO 34 lKt«M 

()(n«(X)*A^<(I«IS)«X2*AM(ItIBM*(Xl*lt (If IS)«K2*WUtI5) ) 
34 rONTiNUE 

6AMMABS(lPSi|M(U«NtN) 

PHObFIOFn 

33 CONTINIIK 
3F (‘ONTIMIIF 

on 34 I«|«(V 

'Mn*Al*wII< ♦ X?*WI|R 

V/(T)»X?*A11S - Xl»wffp 

rt(T.is)»u(n 
wn*!R>»v ( n 
awTISsAW( l•TS^ 

AwTIBsAwMIfTH) 

tl(nsXl*AWI!S^X?*AwI1R 

W(n*X?*A>*iTS-Xl»Att|IM 

Aw(i*|s)««Mn 

Awn,lni*vn> 

M<n«wui is»*iK n 
v(n«w( It H)*v< n 

34 rONTlNUF 
miTF<i6t4n) !«. 

40 FUPMATf//>>X,tl<;si,I4) 

4PTTF n4,4?0) (WU*!S» f 1*1 tN> 

WWITF(l4t4l) m 

41 format (//?)(«• IPs««I4) 

WMTTF ( I4t4,?0» (li»(I«lP)«Isl«N) 

430 FU'^PAT 1?.4M 

r(TS)ssup«.ij»»<auNtN) 
r< !B)aSUPbllM(V*N.N) 
no 37 Isl.M 

M<ns(Awn*is)-c(is)*i«(itis) )•*? 

W(ns(Aw(ItIH)-C(lH)4|rf(l,IH) >#*? 

37 rONTINIIfc 

M TS) s<^•tPSOW(ij.^».^») 

P(TP)=SUPbUM(V.N»N) 

Tf (PURI .! F. 0.0) GO TO 40 
31 COMTI^OIF. 

f, FMO OF SlIH ( OOP 

IK (P( TS) .L7. RF»r (IS) »#?) GO TO iO 
IF (MMI'^,{,T,4,0«P ( IS) ) GO TO 3M 
GO TO "^0 
40 ^(J^tTI^'OF 

)M(K)=JM{1('») 
v)P ( I »'J ) * I S 

WfMTF (14.100) K. JM(K) . IN. JM( IN) 

1 fOOMAT (//?X. »K** . T4 .'JMs'.IA.MNs .l4.'JMs*.T4) 

O(TS)=0,(l 
TM*1N ♦ 1 

IF (I^.GF.N) GO TO 70 
GO TO 30 
30 rOMTlNHF 

70 rONTiNOF 
'^WTTF (4,71 ) 

71 FORMAT (//r'X. •HKACHEO THE FND*) 

PNG 


PCMooeoo 

PCHooeio 

PCP00820 

PCM00830 

PCH00840 

PCMOoeso 

PCM0OH60 

PCP00B70 

PCMOOflRO 

PCM00P90 

PCM00900 

PCM00910 

PCP009?!) 

PCM00930 

PCM00940 

PCM009‘:0 

PCM00940 

PCH00970 

PCP009-I'3 

PCM00V90 

PCmOIOOO 

PCMOIOIO 

PCMOIOPO 

PCM01030 

PCM01040 

PCMOIOSO 

PCM01040 

PCM01070 

PCMOlOflO 

PCM01090 

PCMOUOO 

pcMOl no 

PCM01120 
PCMOl 130 
PCMOl 140 
PCPOl ISO 
PCMOl 140 
PCMOl 1 70 
PCMOl lAO 
PCMOl 190 
PCM01200 
PCM01210 
PCM012P0 
PCM01230 
PCM0I240 
PCM0I2S0 
PCMni240 
PCM01270 
PCM012P0 
PCM01290 
PCM01300 
PCM01310 
PCM01320 
PCM01330 
PtM0I340 
PCM01350 
PCM01340 
PCM01370 
PCM013R0 
PCM01390 
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FTIF} PwnrFS 


FOUTUAN A 


PWOCFS 


IAF(S nine* 


ppocFS nu»«My ioao point for ov 

WWITTPN p/s/72 RV “ 
PFViSFf) 1/22/73 BY 


OR OVERLAY 

'ISIsL^gSBo 


AY MODULES 


SURHOUTl.'iF PWOCf.S (ARRAY# TOP) 


THIS IS A OUNHV PROGRAM USFO TO RESOLVE A REFERENCE 
|N_THF POUT MODULE AS THE POINT AT WHICH OVERLAY 


MonuLFs hfgin, thf array a Is used to force the 

SYSTEMS FHEF STOHAfiF ABOVE OVERLAY MODULES. 


(SEE system manual.) 


OIMFNSION A (3*000) 

HE TURN 

END 


PRCAOOlO 
RR000020 
»PR000030 
PR000040 
PROOOOSO 
PR000060 
RR000070 
PROOOOB9 
»PRO0Q090 
PROOOlOO 
PROOOilO 
PR000120 
►RR000130 
PROOOUO 
PROOOISO 
PROOfJlSO 
PR000170 
PH000180 
PP000190 
PP000200 
►PR00021 0 
PR000220 
PR000230 
PR000240 
PRO002S0 
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Ph>: o^T^EF FORTRAN A 


OF THIS SUBROUTINE IS TO PRINT A NODE THEE^ ^ 

INOEX (?7) fLSU8S(30) *LSUPERIP9) * IpADj«28itNSYMfl( 12) • 


SMPROUTiNt P«TREF(TOPNOO) 
iHPLlriT INTFi'jFR IA-7) 

THF PIIMPOSC - - -- 
r> I HENS! ON 

1 Hf:uM{?6) ,R»i»r 

? Ap J ( ?rt ) ♦ W ( I N) t OPROPi I «). t ow ( 17) 

4 0PRI0«'(9) tnOFN(H) 

niMFNSION V»IN(47S) fGFN(999) •GREF (999) t AL INKH ) 
FOMIWALFNCF (L INK ( 1 ) • ALINK ( I ) ) * (LINK ( *^1 ) • 1 

F0M1VA).ENCF . . _ . 

FOUIVtii FNa (LINKOl) •LSUPER(?9))* <c INK ( 31 ) * IDAOJ ( 2fl) ) • 


?5) •riN(24) *CT0T(23) •PPOP(?2) *^^9(21) • 
♦ tt(19) •OPROPUB) *0W(17)*V0LIN(i6) tVOLRT ( 15) tOCON 
PORAT (13) .niSSd?) tPPASSdP) •PSTdl) •OCINdO)tPCONO(7) • 


INDEX (?7) ) 


1 

? 

3 

4 

K 

7 

A 

<4 


(llNK(3l) •'iSVM«d2) ) • (LINK(31)*PCUM(26) ) 
■ “ (LINK(31 ) «CT0T(23) ) • 

• (LINK(31)«WAOJ(20) ) 

• (LINK(31 ) •0Wd7) ) • 

• (LINK(31)*OCONd4) ) 


• (LINKOI) •PRIRCN(25) 
(LINK(31)*PR0P(22))* 

klNK?3l?li^LiN?U))* 

(LINK(31) •PORATd3) ) 


(L!NK( 41) ,GENI7) ) , (LINK(31) •OPHfOP(9) ) , 


• (LINKOl) •PST(ll) ) • 
(L1NK(31) *VRIN(7) ) ♦ 
(LINK(31) tODENlA) ) • 


\ 0 
r 


(LINK (31) •riN(?4) ) , 

(l.INK(31)*«;PFAC(21)) 

(I 1NK(31) •OPROPdH) ) 

(LINKni)*VOtPT(15)) 

(LiNKni).niss(i2))* 

U-INK (31 ) •OriNiiO) ) 

(LlNKni) .ftPFF(PM , , 

COPMON/CLOS/ JUNK (12) •NaPL*NT 0P,NTRS7M.NWANT*LINK (14000) 
OIMEKfSTON POSd 20) 
niHFNSTUN X d(dO) «Y (1000) 

DATA IPLANK /U / 
vrpn t AND y location FOP NODES 
MA«NOf) s 1000 
TOPNDE = 11^^ 

IF (TOPNOF .FO. 0) RETURN 
DO m T s 1 ,maxNOD 
X ( I > = 0 
V(T) = 0 
CONTIMIF 

NODE s TUPDDF 
IhTDHT = 3 
UMPNO = } 

«/»xLIN s 1 
HIDHDD s 100 

q/iVF LOCATION OF NODE *** 

0 M|)v*MEW = I AMS ( TT'DEX (NODE) > 

IE (NI)mhEp .FD. 0) NU.^HEk =100 
ii(NUF'hFR) s IhIDhT 
Y(NUMMFF) = 1. inf NO 
IF ('v-Of)F .OT, HlfjHNO) HIGHNO s NOOF 

LSTNOr) = NOOF 

PPf)CFSS SUB *** 

HDOh = LSJHS(NOnE) 

IF (NODF. .LF. 0) GO TO 100 

SUM EXITS* InCmemFNT LINE NUMPFR 
I INF NO = L IMF NO ♦ \ 

IF (LImenO .GT. MAXLIN) MAXLIN = I INFMO 
TO SO 

««* PKOCbSS SIBLING ♦** 
no MOnK = LIIK (LSTnOD) 

IF (NODE .LF. 0) GO TO 200 

sm IMG EXITS* imcrfmfnt column number 

IPIGHT = IRIGHT ♦ 1 
GO TO SO 

FIND NEXT NON-ZERO NODE ** 

20 0 I TnFNO = t. InFMO - 1 

IF ILINFDO .if. 1) GO TO 300 
NOOF = LSUPF w (LSTNOD) 

IF (NODF .to, TOPNPE) GO TO 300 
( STNOD = NODE 
GO TO 100 

*** PnINT nodes *** 

PMIMI LINFSZ NODES PER LINE* SET MIN ANO MAX COLS FOR PAGE 
f)n = 1 

I iriES/ = 17 


PRTOOOlO 
PRT00020 
PRT00030 
PPT00040 
PRTOOOSO 
PPT00060 
PRT00070 
PRTOOOflO 
PRT00090 
PRTOOlOO 
PPTOOllO 
PRT00120 
) .PRTOOUO 
PRT00140 
PRTOOISO 
PPT00160 
• PRT00170 
PRTOOIHO 
PRT00190 
PRT00200 
PRT00210 
PRT00220 
PRT00230 
PRT00240 
PRT00250 
PRT00260 
PRT00270 
PRT002S0 
PRT00290 
PRT00300 
PRT00310 
PRT00320 
PRT00330 
PRT00340 
PRT003BO 
PRT003S0 
PRT00370 
PRT003B0 
PRT00390 
PPT00400 
PRT00410 
PRT00420 
PRT00430 
PRT00440 
PRT004S0 
PRT004h0 
PRT00470 
PRT004H0 
PWT00490 
PRTOOSOn 
PRTU0510 
PRT0C5P0 
PRTOOS30 
PRT00S40 
PRT005S0 
PRTOOS6G 
PRT00S70 
PRTOOSHO 
PRTOOS90 
PRT00600 
PRT00610 
PRT00G20 
PRT0Oh30 
PRT00640 
PRT006S0 
PRT006SO 
PHT0067O 
PRT006B0 
PRT00690 
PRT00700 
PRT00710 
PRT00720 
PRT00730 
PRT00740 
PRT007S0 
PRT007F0 
RRT0077C 
PRTOC780 
PRT00790 
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P^TIF: P»mE FUPTPAN A 


) PAKCOI > MINCOL ♦ LINESZ - I 
*• HMINT LINE 
no AOO LINE > WPAXLIN 

ICT s 0 
MLANK BUFFEW 

no 3?0 I * 1.120 
» POS(T) * IRLAMK 

CK ^OOE FOH This LINF 

no 170 wnoF * i.miohnd 

NDLINE s YCWDOF) 

IF (NOLINE .NE. LINE) ttO TO 


rOI NO s X(Nf»OF) 

IF (COL NO ,LT. MINCOL 


.OR, COLNO .GT. MAXCOL) 60 TO 370” 


MOOF OW THIS PAGE 

COLNO * MOIHCOLNO.LINESZ) 

TL (COLNO .FiJ. 0> COLNO s LINESZ 
COLNO * ( COLNO- n * 1 ♦ 1 
mijmhf.R s I (OOF 

CALL HMUAl (POS(COLNO> *3. NUMBER) 
ICT * 1 
I COFTINUF 

I INF COMPLtTF, PPINl IT 

IF (ICT .FO, 0) (»0 TO 400 
MRITF (3.3M0) (POS(L) .Lsl*6n 
WRITE (h.lMO) (POS(L) •Lal.Sl) 
t FORMAT (irnx.lAD) 

T COMTIM'F 


FMU OF PAC.F, SKIP TO NEW PAGE 
whITF n. 410 ) 

\ FORMAT (/) 

Ck FOR NOME PA(.FS 

MINCOL a MINCOL ♦ LINESZ 
IF (MINCOL .LF. 1PI6HT) GO TO 

KFTURN 

FNO 


PRTOOflOO 
PRT00810 
PRTOOB20 
PRT00810 
FRT00840 
PRT008SO 
PRTO0H8O 
PRT00870 
PRT00880 
PRTOOBQO 
PRT00900 
PRT00910 
PRT00920 
PRT00930 
PRT00940 
PHT009S0 
PRT00960 
PRT00970 
PRT00980 
PRT00990 
PRTOIOOO 
PRTOlOlO 
PRT01020 
PRTOloiO 
PRT0I040 
PRTOIOSO 
PRT01060 
PRT01070 
PHT0I080 
PRT01090 
PRTonoo 
PRTOlIlO 
PPTOi 120 
PRT01130 
PRTOl 140 
PPTOI ISO 
PRTOl 160 
PRT0U70 
PRTOllfiO 
PRT01190 
PRT01200 
PRT0I210 
PPT01220 
PRT01230 


I 


FII*-': »^FftOTP 


FOPTHAN U 


r 

r<» 

r* 

r* 

r* 


THTS 
FWOM 
^UPMOUTINFS. 
AND MtoPTTF) 


the iMAfiF TAPF AND STORE IT 
RANDOM access ROUT 


ON A DRUM FILE _ _ , 

INES ARE USED FOR DRUM I/O, 


SURROUTTNF RFAnTR(LAST*IDATA#TORln> 

i f^'RLlrlf INTFOFK (A-Z) 

FaC U?>i!f. 7 . ZOR . X . FJ # PIXFL t TEMP 

PFAL C«'»F 

ni'«FNsT(M>J FI niNF(F*) ♦lOATAd) »FL(12) 

DIMFNSTUN C-^HFU) .PIXELd) *NUMd) 


SURROUTINF COORDINATES THE ROUTINES TO READ FIELDS OF DATA PEAOOOlO 

“ FOR THE clast REA00Q20 

- - rRINITRlAf»?0T0 

RCAOOOAO 
REAOOOSO 
REAOOOFiO 
REA00070 
REAOCORO 
REAOOORO 
REAOnlOO 
REAOOilO 
REAOOlPO 
REA00130 
REA00140 
RFAOOISO 
MAXFFT*REA00160 
REA00170 
SPLMAXfREAOOinO 
REAn0190 

NOFLD2t NOFL03.REA00200 
NOFETA# VARSI7.REA00210 
NOSPFCt NOHISTtREA002?0 
PRTLEV# YSI7 t PEA00230 
NOCLS3* PCTSZ *RF.A00240 
MISVFC( 30) ♦INTEHTOO) tBESTVC (30) REA002SO 

RFA00260 

IHFGIN.TOTWRDtCLSNAM*rpTfNOFLDt SYM(6l) 

LMCATt PRNT(4) * KLBC * PRTME* PPOUT# TOfPIX* 

SC W A M 1 * huFP I X • HUF TO I • NHUFSO « NPUMP « LPUFO 
waxhF. A«FA* Nwns# NwOHSf NPTS* LHMF* TOltNOCYCL 


rOMMON/ARRAV/ TOP* AMPAY (18000) 

COMMON /IMF0RM/HEAD(4?) • MAPTAR. 

1 PAGSIZ* TAPCMK* 

P DUPSYM* THRSYM* 

^ SFRIAL. TAPFSVt 

4 MAXCLS* N0CLS2* 

s NOTRFO* NOFF.AT* 

VARS/2* VARSZ4* 

* MOGPP* DIVSI7* 

M XM6H * XLOW * 

t^T“LOCr ( ,fftvFC(30) *FETVC2(30) * 


DATAPF* 
TRNSYM* 
MAXOIV* 
FILESV* 
MAXFLO* 
NOFETP* 
XSI7 * 
KFFPLV* 
SPCRAS* 


SAVTAP* 

rSTSYM* 

MINOIV* 


COMMOn/CL'ISTP/ 

1 
if 

3* 


IMFJjFP T0T*Pn*SVM*PPNT*PRTMe*PR0UT*TnTPIX*SCPAMl*8UFPIX*F)UFT0T 
1 *CLSNAM 


« 

* 


fouIvalfnCL 

FO'IIVaLf.NCF 

FPMIVAlFNrF 


(CMUF d) *ARRAY(200l) ) * (PTXELd ) *ARRAY<21) ) 
(N)tlf (J ) •array (PO 10) ) 


(FI ni'NFd ) *L1NSTR) * 
" *LINFNn) 


f ♦ 

ro 

r« 

r.« 

n> 

r 

r 


(FLnTNF(2) 

(FI.D1NF(3) 


*LININC) * 


(FLDINF(4) *SAMSTR) * 
(FLDINF(S) *SAMENO) * 
(FLDINF(8) *SAMTNC) 


WF<;eP.VF POOft locations of ‘ARRAY* 

THF MFMApMtPP OF' ♦ARRAY* I? USED 


FOP FIELD DEFINITION 
FOR I/O HUFFFRS, 


RF.A00270 
RF.A002HO 
RFA00290 
RF.A00300 
RFA00310 
REA00320 
RFA00330 
REA00340 
REAO03SO 
REA003F.O 
rf:aoo37o 
RE AO 0 3D 0 
REA003RO 
WFA(.0400 
REA00410 
INFOPMATION.REA00420 
REA00430 


REA00440 

PTPLO li'^FOUMflixON STORED AS FOLLOWS HEA004S0 

APMAY(I) rFIwST FIELD NAME FOP THIS CLASS REA004(S0 

</) *N0, OF VF.mTICFS for THIS FIFLD (NV) REA004 70 

( 3)-(3^NV**2) = ACTUAL VERTEX NUMHFPS REA00480 

(l*Mv«?) sTOTAL PIXFLS IN THIS FIFLD REA004R0 

(4*mV«2) - ( 10*NV*2) = FLOINF RLOCK FOR THIS FIFLD REAOOSOO 

COMMON /TFSTCm/ ITFSTdOO)* NTESTdOO)* MTFST ( 100) * ISUM*MSUM*NSUM REA00510 

REA00S20 

I^'T^dLI7F constants TO CHECK SCRAMBLING REA00530 

no ? 1=1*) no REA00B40 

ITFST I) = ^ REA00550 

■>WfsT(T) = 0 REA00560 

3 htfst(T) = n 81^29^12 

(Sl)M = 0 RFAOObBO 

MSMM = 0 REA005RO 

RSIIM = 0 REAOObOO 

IF IHCK I .(--T .0)00 TO 10 REA00610 

r CALL HI MlT ( TWFT-IN*NW()S) REA00620 

iHEtilN = I RF A 006 30 

DiFFTNE FUF ( ?] 00 i,?00 *U* TO) PEA00640 

OPllMflD = i REA00650 

OR^WDS - 4P00O0 

wPlTE (22*1) OHUMAD 81^22^12 

OATAPF = 11 REA00680 

CALL tARHDRinATAHF *0) REA00690 

10 roNTiNiM- 8t^22?92 

AonMFs=iHFGiM 8^922U 

T#»PiJ = 0 REAO07?O 

I APT=0 RFA00730 

TDTWkOsO RhA00740 

f>FTM0X = 2001 8I^22Z?2 

TOP = IHOOO RFA00760 

»»aVi)Im=TOP-POO(I REA00770 

n»)FS (/= MA<oim/NOFF AT * NOFFAT REACOTMO 

(,I 0 P| l) = o REA00790 
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Ff«P: MFAOTP A 


r* 

r* 

<'0 


IPT«l 

IFtNOCt.liT.O) 


M)«ITe (A. 1500) NXTCLS 


PFAO A FIELD DFSCRIFTION FROM CAROS. 

fCK B LaREAD<ARRAV(IPT) •ARRAynPT*2)*FLniNFf ARRAV(IPT«l) 
IFdCK.LT. 0)60 TO 100 
IF(ICK.FQ,0)60 to 150 
ftVsARRAYdPT^l ) 

MOFLDbWOFLD*! 

NSAMPB (SA^iEftO-SAMSTR) /SAMINC^l 
FLD5AM*0 
1H»IPT«2 


TE*154NV*2-) 
»*RTTe 


c* 

r* 


r* 

r* 

c* 

r* 


(A.lftOO) IXOFU**! 
(APf AYd) 


^^PT) •NV«SAMINC«LININC* 


POSITION TAPE FOR THIS FIELD 
CALL M.nlM(FLniNF.FFTVFC.WCFEAT) 

KNT*0 

no JO I INF.*LIMSTW.LINEND*LININC 
CALL Llr'EwO(IOATA.ENDTAP) 

TFfFMDTAR.FO.-l )(,0 T» POO 

FIND SA.APLE InTEhSECTS FOR THIS LINE - NI«NO. OF 
CALI. EOLINTtARPAYdPT ♦?) .NV.FL »LINE.SAHPS*NI ) 


INTERSECTS 


r 

C 


STORF DATA ON THIS LINF. INTO OUTPUT SUFFER 
no h(t TsltNT.? 

T« s(FI. (I )-SAMSTW)/SAMINC ♦ I 
TF b(EL d^n-SAMSTR)/SAMINC ♦ 1 

TF (MOr>(SAMSTP»SAMlNC) .NE. MOO (FL <1 ) *SAMINC ) ) IH»ld» 1 

IFdR .6T. TFM-.0 TO 60 

no SO JsIR.TF 

RNTsKNT*! 

no so Ksl.NOFFAT 

T<^»0=IWRO ♦ ) , 

»'"ITF'^P = ( 6=1 ) ’»NSAMP> ♦ J 

CBUF(TWRO) = inirTA'iiTFMP) 


C« FOR FULL Hl>FFLW. WRITE SUFFER IF FULL 
TF dwRn.LT.uUFSIZ>fiO TO 50 
TOTWmi=rOTWRO ♦ IWPO 

CALL PWRITMAOOPFS. CHUF ( 1 ) . BUFSIZ. LSTaT) 

C CnuMT OCCU^'Ais'CFS OF VALUES FO» TEST OF SCRAMBLING 
CALL TEST (rBUF(l). BUFSIZ. ITFST. ISUM) 

0061 F(»RMAT <• AODRE5.RUFSIZ.ISUMs»,?I10./. (1017)) 
AOnBES = ArM)BFS ♦ BUFSIZ 
TWOf)a0 


70 

r 

r 


7S 

r 


AO 


r« 

r* 

) no 


r 

r 

1 ?(\ 


SO CONTINUE 
60 COVTlNUf. 

FLHSAMsFLOSAM.SAMPS 

rONTlNUF 

EMPTY PUFFER 

IF (iwpn ,F0, 0) 60 TO 7S 
TOTWRO s TOTWRO ♦ TwHO 
CALL RwRITF (ADORES. CHUF ( 1 ) . IWRD. LSTAT) 
CALL TEST (CBUF(l).IWRQ.ITEST.ISUM) 

comtinue 

TPT = IPT ♦ NV*? ♦ ? 

APRAY(TPT)=KnT 
no on Tal.6 
tPTslPT.l 

ARRAY(TPT)=FLf)TNF(I) 

TPT=IPT*1 

TF(IPT»30 .GT.ZOOO)60 TO 700 
SO TO ?0 


CLASS NAMF CARr) LNCOUNTEREO - REREAD PREVIOUS CARD TO GET NAME 
■v<OCL=NOCL + l 

IF (NOa ,GT.T /GO TO lao 
PFAOnO, 1 10 ») NXTCLS 
•VRTTF (6.1SO0) NXTCLS 
GO TO ?0 ■ 

CLSNAMsNXTCI.S 

REAO(, 30 .UOO)NKTCLS 


REAOOPOO 
REAOOeiO 
REA00820 
REAOOflSO 
REA00840 
REA00B50 
REA00B60 
REA00B70 
REAOOeAO 
REAOOeQO 
REA00900 
REA00910 
REA009P0 
RFA00930 
REA00940 
REA00950 
REA00960 
REA00970 
REA009G0 
REA00990 
REAOIOOO 
REAO 
READ 
REAO 


010 
0?0 
030 
REAOiOAO 


REAO 

REAO 

REAO 


REAOIORO 


REAO 

REAO 

REAO 

REAO 

REAO 

REAO 

REAO 


050 

060 

070 


090 

100 

no 

i?o 

130 

140 

150 


REA0116G 
REA01170 
REA0I180 
REA01190 
REA01200 
REA01210 
REA01220 
REA01230 
REA01240 
REA01250 
RE.A01260 
REAI)1270 
REAOi?flO 
REA01290 
REAO 1300 
REAOI310 
REA01320 
REA0I330 
REA01340 
PEA013S0 
REA01360 
REA01370 
REA013B0 
REA01390 
REA01400 
REA01410 
REA01420 
REA01430 
REA01440 
REA014S0 
REA01460 
REA01470 
REA01480 
REA01490 
REA01500 
REA01510 
REA01S20 
REA01530 
REA01540 
REAO 1550 
REAO 1560 
REA01570 
REA015R0 
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FTLFI »eAC)TP FOMTWAN A 


<50 TO 155 
C 

IHO fU^NAMBNXTCLS 
155 LAST«1 

r #•♦* SCRAMBLE DATA •••• 

C PliPPOSEt SfPAMBLE THE ORDER OF A SFT OF INTEGERSt IN THE 

C RANGE 1 - NPIXEL f AND USE THIS SCRAMBLED SET OF 

r INTEGERS TO SCRAMBLE THE LOCATIONS OF INPUT DATA 

C R I THIN THE INPUT DATA BUFFER. OUTPUT THE SCRAMBLED 

r DATA ON THE DRUM. 

r PUFTOT B NO. OF AVAIL WORDS IN SCRATCH AREA •ARRAY* 

TOP * USOOO 

MUFTOT « (( TOP - IPT*1 ) /NOFEAT) * NOFFAT , , 

r HUFSI7 « 1/2 OF total WORDS ON FAST STORAGE DEVICE BUFFER CARRAVl 
HUFSI7 « HUFTOT/2 
NHUFSD * 0 

r NfOWnS r TOTAL NO. OF WORDS AVAIL IN FAST STORAGE 
C TOTWRO e TOTAL NUMBER OF WORDS IN ORIG DATA ON DRUM 

r SCRAMl s 1ST WORD OF AVAIL FAST STORAGE ♦ LENGTH OF ORIG DATA UNLESS 
scram 1 s IRFGIN ♦ TOTWRO . . 

r. scfumble The input data t place the scrambled data on drum. 

r FOR SUBSFPUFnT access by subroutines STATIS ANO CLASYl 


PURPOSE t 


NO. OF 
liSOOO 


SCRAMBLE DATA •••• 

scramble the order of a set QE INTEGERSt^IN^TME^, 

RANGE 1 - NPIXEL f AND USE THIS SCRAMBLED SET OF 
INTEGERS TO SCRAMBLE THE LOCATIONS OF INPUT DATA 
WITHIN THE INPUT DATA BUFFER. OUTPUT THE SCRAMBLED 
DATA ON THE DRUM. 

AVAIL WORDS IN SCRATCH AREA • ARRAY* 


AVAIL WORDS 


SCRATCH AREA ‘ARRAY* 


(ARRAY) 


'nn 1 = I :> I 

SCPaMJ s 1 
SCRAMHL 
FOR SUB 


subsfpufnt access 


CLASYl 


YPT * 1ST AVAII WORD IN SCRATCH APFA ‘ARRAY* 

PUFS17 s i/:' OF TOTAL AVAIL WORDS IN PUFFER ‘ARRAY* 

BUFPIK * S12F OF *AkRAY*/NO OF CHANNELS 
i HUFPIX * l’?UFTOT/NOFEAT 

*** INITIALIZE **** 

7 s 70W( USH?7 ) 

WFftO THF: input pixels from ORUM INTO THF 8UFFFH SPACE* AND 
SCHAMBLF THF pixels in THE INPUT HUFFEH 

l^lA^)0R = next >*0^0 OF ORIG DATA 
TNAOno s IrtFOlN 

riuTAOn s next avail WORD FOR SCRAMBLED DATA 
OUT ADD = SCRAMl 
NMl s MO OF CHANNFLS - 1 
NMl s NOFFAT - I 


f'HUFS s 
T01WR0 r 
FFAT = 
mAXBIJF s 
SLICE = 
SFCTTON s 


*** CALCULATE TRIAL SLICE *** 

NO. i)E BUFFERS OF DATA 
TOTAL WORDS OF DATA 
NO OF channels 

maximum buffer size * NO. OF BUFFERS 

LARPfST CHUNK THAT WILL FIT IN A BUFFER* NBOfSO TIMES 
ARRAY created FROM SLICES OF DATA, FROM EACH BUFFER 


DATA, FROM EACH BUFFER 


r fAt.C TRIAL SLICF 
?*no MBUFS s (TOTWRO ♦ RUFSIZ -1) / BUFSI7 
?in MAXHUF s HUFSI7 * NBUFS 

T5LICE = (MAXBUF/NHUFS) / NBUFS 
SL ICE MUST BF FVFN MULT OF NO OF CHANNELS 
IF (TSLICE .Gt. NOFFAT) GO TO 230 


BUFSI7 


wwtTF (Fi.lP’O) T0TWPD*N8UFS* NOFEAT* TSLTCF 
i;»pn FORMAT <• RFAfiTP — ERROR IN CALC BUFFER SLICES* TOTAL WORDS *‘*18* 
1 • NO WOS IM BUFF = »*I6** NO CHANb»*IS*» TRIAL SLICE«**I6) 

CALL CMERR 

C 

r CALC SLICF AS FVFN MULT OF NO CHANNELS 
SLICE = (TSl ICF/NOFFAT) * NOFEAT 


TOTAL WORDS READ = ( 1 SLICE FROM 
SECTS7 = SLICE * MBUFS 
TOTSTS = bECTS7 * MBUFS 


BUFFERS) 


RUFFEHS TIMES 


MMmHEW of words in 
IF (70TSTS .OF. 
MHUFS = NhUFS ♦ 
SO TO 


EACH BUFFER * NO OF 
TOTWRO) GO TO ?40 
1 


BUFFERS MUST 


CON r I NUF' 


M H))FFERS OF DATA 
no ROO Ksl .MHUFS*! 


V ■ 

‘ • -j 
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Pile: OfiOTM FORTRAN A 


r 

r 

r 

r 

c 


READ SLICES OF DATA ••• 

SLICE data— READ SOMF DATA FROM EACH SECTION 
SFCTION, START EACH READ IN FIRST SECTION 

NEAT RORn OF 0RI6 DATA 


r IMAODR 
f 

410 RAORES ■ INADPR ♦ (K-1) • SLICE 
NWOROS ■ 0 
r 

NDXRf) m I 

no 420 J * 1#NHWFS 
SI7RO ■ SLICE 

rU»AOS * RAORES ♦ (J-1) ♦ SECTSZ 
r 


EXCEPT POSSIBLY LAST 


C CK IF HOPE data is needed FROM LAST BUFFER 
TE (T0T«JRD - CURADS .LT. 0) 60 TO 420 

I ASTWD s n»RAl>S ♦ SLICE - 1 

?E (TnT»<RO .LT. LASTWD) SIZRO * TOTWRD - CURADS ♦ 1 

CALL RREAO (CURADS# PIXEL (NDXRO) * SIZPD# STATUS) 

“■" ROirPD « NOXRD ♦ SI7RD 

Mt^DRDS a NWOROS ♦ SI7RO 
4?0 rONTINUfe 

r 

r construct a SET OE SCRAMBLED INTEGERS IN THE RANGE 1 - NPIXEL 

r CREATE SCRaMhlEU INTEGERS ONLY WHEN BUEEER SI7E CHANGES 
niRS CONTINUE 

C NPIXEL a no. OF SETS OF CHANNELS IN ONE RUEEER 
NPTXEf a NWORItS/t'lOFEAT 

IE (H .GE, ? .AND. LSTNPX .EG. NPIXFU GO TO 480 
I. STNPX a NPTXEL 


r 


00 440 I = l.NPTXfc'L.l 

&40 NUM(I) = I 

r 


NP) a NPIXEL ♦ 1 
r 

no 460 I a 1.4. I 

r 

no 4S0 JlOal, NPIXEL 
J s NPT«EL - 010 ♦ 1 

X a UNTF ( 1 .) 

EJ a J 

NN a F J * X ♦ I . 

LL a NPJ - J 
NTFMP a NUH(IL) 
NMM(LL) * NHM(NN) 

4^n MUM(NN) = NTFmP 

c 

460 CONTlNOt 


r 

r ««• scramble DATA *** 

r NOPTXPl = NO. OF SETS OF CHANNELS IN ONE HUEEER 
4H0 NPXMl a NPTXEL - 1 
no SOO fal.NPXPi.P 
K* a NUM(I) « NOFE-AT - NMl 
I. a NUPd^n NOE!: AT - NM) 
r 

C MOFFAT = NO, OE CHANNELS 
no 4R0 v/al .NOFEAT. 1 
MN a N ♦ J - 1 
U. a L ♦ J - 1 
TPMP a PIXFL(NN) 

PIXEL (NN) a PIXEL (LL) 

490 PIXELUJ.) a TFHP 
Sno CONTI NOE 

r 

r ADIt FACTOP TO EACH PIXEL 
po Sin I a l.NtoORDS 
7 a 0(|TF< 1 .) 

X a / - .6 

PIXFI (T) a PIXFL(I) + X 
=;ro CON 1 1 NOE 


RLA023B0 

REA023O0 

REA02400 

REA02410 

REA02420 

REA02430 

R|a02440 

BEA024S0 

REA02460 

REA0P470 

REA02480 

REA02490 

PEA02500 

REA02510 

REA02520 

REA02530 

REA02540 

REA025S0 

REA02B60 

REA02570 

REA025fl0 

REA02590 

REA02600 

RLA02610 

REA02620 

REA02630 

REA02640 

PEA026S0 

REA02660 

REA02670 

REA02680 

REA02690 

REA02700 

REA02710 

REA027P0 

REA02730 

REA0P740 

REA027S0 

REA02760 

REA02770 

REA02780 

P*="0?790 

r«C. aO? 800 
REA02810 
RFA028P0 
RLAOPH30 
REA02P40 
REA02860 
PEA02860 
REAO207O 
REA02880 
REA02890 
REA02900 
REA02910 
REA02920 
REA02910 
REA02940 
REA029S0 
REA02960 
REA02970 
REA02980 
RFA02990 
Rfc A03000 
REA03010 
REA03020 
REA03030 
REA03040 
REA030SO 
REA03060 
REA03070 
REA03080 
REA03090 
REA03100 
REA03110 
REA03120 
REA03130 
REA03140 
REA031S0 
REA03160 
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••• WRITE SCRAMBLED DATA ON DRUM ••• 

RUT TMF BUFFER OF SCRAMBLED PIXELS BACK ON THE DRUM 


OUT ADD ■ MFXT AVAIL WORD 
PIXFL « SCRAMBLED DATA 
MWORDS B MO. OF WORDS IN 
CALL RWRlTe( OUTADO 


FOR SCRAMBLED DATA 


r COUNT OCCURANCFS OF VALUES FOP 


CURRENT BUFFER 
PIx|L j^NWORDS 


OF 


• OSTAT ) 
SCRAMBLING 


CALL TFST (PIXEL *NWOROSfNTEST#NSUM» 

OUTAOn » OUTADO ♦ NWOROS 
f 

^00 continue 
RETURN 

700 WRITF(S«1300J 
CALL CMERR 
Aon WRITE (n*1400) 

CALL CMERR 
MOO FOPMAT(10a*A4) 

noo format (• field definition information exceeds ?ooo words*) 
)40(» format I* ENO-OF-TAPF. REACHED BEFORE FND OF FIELD*) 
moo F0OMAT(//40Kf *FIELDS TO BF CLUSTERFO FOR CLASS* t 1X«A4// 

«» 3tiX,*SAMRLF*f3X**LINE*/SXf*FIELD NAMF**3Xt 

* *N0. OF VFRriCES*.3Xt*INC. * *3X* * INC. * *30X. * VERTICES* ) 
l#,nn FORMAT (lX*I?*4X*A4*l?X«I2*T0X*I?*AX.l?*5X. 

* S(* (*,l4.*.*.I4t*) *t2X)/?l52X*b<*(**I4.*,*tI4t*) **2X)/) ) 
FND 



REA03170 
‘ IflO 

[90 

„,,_ioo 

AO; 

[ao’ 

‘A0|2^30 
'A03240 
^A03250 

iioil?© 

REA032B0 

REA03290 

REAoaapo 

R|A033i0 

REA033^0 

REA03330 

REA03340 

REA03350 

REA03360 

PEA03370 

REA033R0 

REA03390 

REA03400 

REA03410 

PEA03420 

REA03430 
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filf: seofr 


FORTRAN A 


( 

( 

( 

c 

( 

( 

I 

( 

{ 

i 

( 

( 


c 

t 

r 

r 

f 

r 

r 

r 


CLUSTER 
REFN 5PL 
HAVE NOW 
SRLTT UR 
THF ROUTINE 
0AU6HTER 



HAS BEEN C- 


SUBROUTINE SFRER(KL) 

THIS ROUTINE IS CALLED WH 

hould be SPL 

T BY THE ROU 

BEFN GATHERED Td CON^IDM THAT THE 
ON A STATISTICALLY SIGNIFICANT BAS 
TAKES THE CLUSTER AT KL# AND BRlfiG 
^ .^.C^UStERS TO THE SANE LEVEL AS KL I 

THFN ELIHINATEO. 

DIMENSION NTB(3?) 
niMENSION IN0EX(27)«LSUBS<30) 

1 RCUM(?6) •RRTRCH(?S) tCIN(EA) » 

■ ‘ Piiei. 



/OP ALL ITS 
PSELF. KL n 


K12)« 


wADj(2o) •wiioifOPROPdai •owutTivolinug) •volriusi *6conu 4) « 
3 P0RATO3) f HISS (12) tPPASSdZ) tPST(ll) «OCIN( 10) fPC0N0(7) t 


* 0PRI0R(9) fODEN 
dimension VPIN 


FOU 

EOU 

EUU 


5S(12) tl 

^N(A) 

^1(475) •< 


.. 6EN(RR9)#6REF(9RR)*ALINK11) 
VALENCE (LINK(l) .ALINKII) » f ^LINKiai) tf 
valence (l!nK(31) •LSUBSI30)) 


NDEX(27) ) 


VALENCE (LINK ( 31 ) tLSUPER ( 29) ) t (L INK ( 31 ) f IDAOJ ( 28) ) , 
?L NK(3l) •NSYHB(12) ) . (LINK (31 ) fPCUM(2A) ) t (LINK (3lT fPRIRCH(2S) 
(L NK(31) ,riN(24j) . (LINKOl) *CT0T(23) ) . (L INK ( 31 ) {PROP ( 22n # 
(LINKOi) «SPFAC(?1 I ) « (LlNKlSi) tWAOJ(?0) ) • (LINKUII 
(L NK(31)*0PR0P(1«))* (LlNK(5f) fOWd^ 

(L NK(3U«V0LhT( 1S))« (LINK(31) tDCON 


nisgumi 

i(14))« (LINK(31) •PQRAT (1 


,L,NK<J|,.PP*ggjJfj.. 

R(9))» (LTNK(31)fOOEN(8))f 


) • 

3 ) ) 


_ J1)*NTB(31)) 

)UNK( 12) •NARL«NTnP,NTBS7MfNWANTfLINK(14000) 


S7l 


(LINK(31)*r)lSS(l?)). (LINK(31 _ 

(LINKOl) ,nciNdO) ) . (LINK(II) .PCONI 
(LINK (31) «GEN(7) ) « (LINKOl) f0PRI0R(9) ) • 

(LINKOl), OPFF(B))* (LINK(3 

coMMON/cLus/ :: L 

dimension MifAHOl) #LR0) *LV(3) 

F(JUIVaLENCE (L»d)fLVRrN),(LR(2)*LKURT)f 

1 (LR(3) tLOVAR) • (LV( 1) «LSUM) t (LV(2) tLSKEW) t (LVO) «LOSUH) 

COMMON /MISC/ Mt),HM,L»*LV*NINCLS#MXAR»WTINIT*KROOT*EPS*OELT* 

1 AMO*OOCON,XOVFLO*XUNFLO*WAOJINfELIMTH*SEPTH,VFACtAHH#SBLTH* 

? IN0»VL*WFAC.NPT50fPQRATHtSPMVTH*0WFAC*0PACTMf AMOFAC* ^ 

3 AMOMIN, AMOMAX,AHORAT,VOLLIM»BIAS«PJOIN«VRJOINfWSIMtWDELSH, 

A PETTEH*Mni)f ,CORLEN,SPCOP 

COMMON /STPAP/WAIT*CONLV»SKflND*SKCHI*7RBNO«TRCHl*URKBNO*URKCHI* 
) PACCEL (?) *MACCEL (?) fVACCEL(2) 

*♦* CALC NEW PATIO AND PASSF 

KSsLSUPEP(KL) 

N * LSltHS(KL) 

f'PTMT ^71, INDEX (KL ) .INOEX(KS) t INDEX (N),SPFAC(KL) 

>-HTTF (3fS71) INDEX (KL) dNOEX(KLS) .INOEX(N)jSPFAC{KL) , 

FOPMAT ( *0***SFPERATE »*I3** SUPERtSURS «t?I3? » SPFAC »*Ell.5) 


r. 

r 

r 

r 

r 

r. 


PATIOsPHOP (<L) /PklRCM(KL) 

PASSFsPST (KL)/(PCUM(KL)*PP7RCM(KL) ) 

pEWOVE KL **♦ 

K s FIRST OFFSPRING OF PARENT OF KL ^ 

FIRST WE find KL IN THE LIST OF LSUBS OF KS* AND REMOVE IT. 
KsLSUGS(KS) 

TF(K.NF.KL) GO TO ?0 

PTRST offspring of KL * K* RESET FIRST OFFSPRING TO LINK(KL) 
LSURS(KS)sLINK(KL) 

GO TO ?9 

FIND CLUSTER KL 
KOLO*K 
KsLInK(K) 

IF(K.LF.O) GO TO KG4 
TF(K.NF.KL) (U) To 20 

SET LINK OF KOLO s LINK OF KL 
?S LINK (KOLO) sLTNK (KL) 

CHECK FOR VOID SUBCLUSTERS OF KL 

PPOrtSS FACH SURCLUSTER. 

?9 KsLSUBS(KL) 


SEPOOOlO 
SEP00020 
SEP00030 
SEP00040 
SEPOOOSO 
SEPOOOGO 
SEP00070 
SEPOOOBO 
SEP00090 
SEPooion 
SEPOoIlO 
SEP()01?0 
SEP00130 
SEP00140 
5EP001S0 
SEP00160 
SEP00170 
SEP0018D 
SEP00190 
) ♦SEP00200 
SEP00210 
5EP00220 
SEP00230 
f SEP00240 
SEP002S0 
SEP00260 
SEP00270 
SEP00280 
SEP00290 
SEP00300 
SEP00310 
SEP00320 
SEP00330 
SEP00340 
SEP003S0 
SEP00360 
SEP00370 
SEP003P0 
SEP00390 
SEP00400 
SEP00410 
5EP00420 
SEP00430 
SEP00440 
SEP004S0 
SEP00460 
SEP00470 
SEP00480 
SEP00490 
SEP00500 
SEP00610 
SEP00520 
SEP00530 
5EP00540 
SEP005BO 
SEP00560 
SEP00570 
SEP00580 
5EP00590 
SEP00600 
SEP00610 
ScP008?0 
SEP00630 
SEP00640 
SEP006S0 
SEP00660 
SEPO067O 
SEP00680 
SEP00690 
SEP00700 
SEP00710 
SEP00720 
SEP0073n 
SEP00740 
SEP007S0 
SEP00760 
SEP00770 
5EP00780 
SEP00790 


B-77 


PTLF.I S£PE» 




r 

C 

r 

C 


f, 

r 


r 

r 


r 

r 

c 

c 

r 

r 

r 


KOLO«KL 
10 CONTINUE 

i F CK.OT.O) 60 TO 614 
NTNT 664«KL«KfK0t.n 
i64 FORMAT (tOBAO SUP INDEX 
CALI. CLM«(KI.*666*6FN(I 
CALL CLPN(K0LD*666*6ef 
RETURN 


NDEX IN SEPERt KLtKt K OLOstiElAfi; 
6FN ( LSUMT • GEN (L5MEW 1 « GEN ( LKUPT ) 7 
6*GEN(LSUM> tGENiLSKEW) tGENILKURT) ) 


*•« SFT PARENT OF EACH OFFSPRING FROM PARENT OF KL 

014 fOMTiNUF 

LSUPFRCK)»KS 

CALL OENCAL TO ADJUST THE DENOMINATOR OFFSET AND PROPORTION OF KL 
CALL fJFWCALff^fRATIO.WIKL) ) 

PST(K>«PST(K)*»ASSF 

OFT NFXT sibling 
KOLO«A 
KbLIMK (K) 

if(k,nf,o) go to 10 


•** SET LAST OFFSPRING OF KL TO POINT TO OLD 1ST 
OFFSPRING OF KL*S PARENT. 

SET KL.S PARENT TO POINT TO 1ST OFFSPRING OF KL 


SEP01050 

•••SEC0I060 

SEP01070 


KS a PAWFNT OF KL 

MO-i ADD T^^E SUOf.LUSTFR LIST OF KL TO THAT OF KS 
LlNK(KOLO>aLStm(KS) 

LSl)HS(KS)aLSOHS(KU 
CALL FREF (KL.NTNCLS) 

CALL POTRFF (KS) 

RETURN 

Ft.)0 


SEPOlOflO 

SEPOIORO 


SEPOl 100 

St'pol no 


SEPOllPO 

5EP01130 


SFP01140 

SEP01160 
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FII.F: SfeT»»f*9 fO«TPAN A 


r 

r 


SUWttOUTlNt SETUP9 SET 000 10 


r*#' 

r 

C TNPtiT’^TO^THE^wOfipXM *^*'^*' SET0P9 IS TO RE4D AND ANALYZE ALL CARO 

r 


SETOOOIO 
SETOOOAO 
SETOOOSO 
■“-OOCftO 


.11? 


1 

y 

A 

S 

4) 

« 

H 


IMPLICIT 
common 


INTFI?/F0 (A-K) 


/INFOPM/HF A0(4?) • 
PAttSIZ. 
OUPSYM* 
SERIAL# 
MAXCLS* 
NOTRFO# 
VARSZ2* 
N06RP, 
XH6H 


MAPTAP* 

TAPCHK* 

TMRSYM# 

TAPESYt 

NOCLS?* 

NOFEAT* 

VARS7A* 

nivsiz* 

XLOW « 


OATAPE* 
TRNSYR* 
MAXDIV* 
FILFSV* 
HAXFLO* 
NOFET?* 
XSIZ • 
KEEPLV* 
SPCBAS* 


MINDIV* 




NOFLO 

NOFEtAi VARS! 
NOSPEC* NOHIS 
prtlev# YSIZ * 
NQCLS3*__ PCTSZ 

rc<r 


SET00070 
SETOOORO 
SET00090 
SETOOlOO 
MAXFET*SET001 10 
5ET00120 
SPLMAX*SET00130 
SET00140 
♦SETOOISO 
•SET00160 
•SET00170 
SETOOlflO 
•SET00190 


'^lCiii?r?i?0),FFTyFCnO) *FETVr2(30)* HISVEC (301 .INVERT (36) ;BEStvC<30)SEt60200 
DIMENSION _HFnl(l()). HEPPUO). OATE(?). COHENT(IO)* 


FOHIVAI.FNCE (HtOl I 1 ) .MEAD ( 3) ) * 

^ ( HEf)? ( 1 ) .MEAD ( 20 ) ) f ii.iime.rj i 1 1 1 tncitii ij* 

common /SUPCOM/ INTAPE.STATUS.C0L.C00El.C00f2.CAR0(6i 


(OATEd). MEAO(, 
(COMENT( 1) *HEA0(3* 


TEMP ( I ) 


Tofp 


IX. 


SET0021U 
SET00220 
SET00230 
SFT00240 
SET002S0 
SET00260 
5ET00270 
SET002PO 
SET00290 
SET00300 
SET00310 
SET003PO 
SET00330 

dimension S^fLS(bl) IItooIsO 


common/clustp/ 

1 
? 

3. 


IhFGIN.TOTWPO.CLSNAM.TPT.NOFLO* SYM(61) 
LNCAT# PRNT<4) . KLBC « PPTME. PPOUT. " 
1CP4M1 .HUFPlK.HItFTOT.NBUFSO.NDUMP.LRUFO 
Maxhf* APFa. NwDS* NWDRS. NPTS. LBUF. lOl.NOCYCL 


TivlTtOtW TOT*<MD,SYM,pPNT.PRTME.PR0UT*T0TPIX.SCRAMl*BUFPIX*bUFT0T 
1 *clsnam 


« 

? 

3 

4 


data 


SMdLS/»l *.♦?*, 

•F*«»F«*»G*.»H».*I» 


*f.««*>***«**«?'«lH*.*t***«* 


6t,t7*«(e««t9**«A***B***C***D< 
*J***K*t •L*«*M**t.N*,to»**pt«tOi« 


**»0» / 




c 

r 


r 

c 

r 


data ANK/i »/♦ KOMMA/*.*/ 
dimension IMVFC(ll) 
r^ATA INVEC/ »CHAN» , *HF01 » « »HF02* * •DATE* * »COMM» • 'MPTS* • »NPOS» 
o t •PPTN» . ♦*FNO» . • ITFQ*/ 

ICrtTsO 
KO = 0 
DO S 1*1,61 
S SYM(nsSMMLS{ n 
NOFFAT=0 
MPTTF (6,s;-»U) 

)o Rr AO(?i *4HO)ronF,rARn 
»-PTTE (4,SS0)CODE.CAPn 
Ci)L = 0 

: SFT NtIMHFM »)».- valid CARO TYPES 

CNUM s 1 1 

DETFPMImp TYOf 

no ?0 Tsl*CiMi)rl 

TF(COOF .fn. TnVF.C(I))GO TO ( 30 *S0 . 70 * 90 . 1 1 0 . 1 30 . ISO . 1 70 * 1 90 * 
* PFiO ♦ ?70 ) » I 
?'* rONTlNDF 

IN V ALTO rAMU TYPE 

mwtte (6*49n)r(^oe«CARD 
(tO to in 

CHANNEI. CAPO 

30 j = NXTtMP (rAPn,cot ) 

TF (J ,E(J. MIANK)60 TO 10 
COLs('OL-l 

NOFFAT = XUMpf P(C uWD*COL.FFTVEC*NOFFAT) 

VAPSl7r (NOFF AT« (NOFEAT *! ) ) /? 

DO TO 10 

HFDl CAP!) 


sn 


PF AO {3t).S0O)HFI)l 
DD TO U) 


SET003F.0 

SET00370 

SET003B0 

SET00390 

SET00400 

5ET00410 

SET00420 

SET00430 

SFT00440 

SET004S0 

SETOO4B0 

SET00470 

SET004B0 

SET00490 

SETOOSOO 

SETOOblO 

SET00S20 

SET00530 

SETO0S40 

SETOOSSO 

SET00560 

5ET00570 

SETOOSBO 

SET00690 

SET00600 

SET00610 

SET00620 

SET00630 

SET00640 

SET006SO 

SET006S0 

SET00670 

SETOObRO 

SET00«S90 

SET00700 

SET0071G 

SET00720 

5ET00730 

SET00740 

SET007S0 

SET007B0 

SET00770 

SET007R0 

SET00790 


fJ?GSNAL PAGE IS 

POOR QUALITY 
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<3 v“>*) -sr»-> -j-n m-n ~t-in *>"> 


FIIF: «ieTUP‘» A 


HF09 CARO 

70 PtAO C^0.**00) HfiJ? 
fiO TO 10 

OATF CAWO 

'70 wFinnO'^5io»OATE 
GO TO 10 

CCMMfcMT CARD 

no READOOfSOOirOMFMT 
GO TO 10 

MPT«i CAROtNUMHFR OF OaTA POINTS FOR EACH CHANNEL RETURNED TO 
ClASYl EACH CALL TO CLASV2 

no J*NUHHFW(CAROtCOL*NPTSfKO) 

GO TO 10 

HPOS CAROtlMiJMrtFH OF DRUM POSITIONS FROM WHICH TO OPTaIN OATA FOR 
CL AST T. SC that THF oaTA WILL RE SCRAMBLED 

ISO JsNUHHFH( CAPO, COL .NPOStKO) 

GO TO 10 

GV'iHOL CAP') 

no irNTsicNT^i 

TFdcoT ,ur. sn GO TO in 
no MsMkTCHh (Capo, COL ) 

IF( M .FQ. GLANKIGO TO 10 
IF(^' #Fo. kommaIGO to IRO 
SYM( ICMT) 

GO TO 17(1 

PWTNT OPTION CARO 

IPO Js'^xTCHn (CAPO, COL ) 

TF (J .Fg. MLANKIGO TO 10 
COL=COl.-l 

JaMOnPFP ( C apo f COL, PRNTfKO) 

GO TO m 

*FMO* CAPO 

PGO PFTUPN 

TTLFATIOW CAPO 
70 J = OXTCH- (CAPO.COU 
pplTF n,ggP9) J 
TF <J .to. MLAOF) GO TO 10 
COL s COL - I 

X R MliMutP (CAP0,COL,TEMP,Kn) 

MOCYCl = Th^Pd) 

WOITF ( (,vQp£J) J,HOCYCL 
9 <»q FOOMAT ( »N()rYa,s» » A4, 1 X, IH) 

GO TO TO 

FOPPATS 

<mn FOP»’AT(A4,AX,b?Al) 

Aori format I , INVAt TO IMPlJT C ARO— TGNORFC* /TS, AA , AX ,62 aI I 
«= 0 n FOPMAK lOX, 1 OAG) 

Pin format ( 10X,?AG) 

S«;ft FOOHAT (SX,AP,4X.h?An 

AGO FORvaTC//* input SUMMARY'//) 

FNO 


SETOOBOO 
SETOOBIO 
StTOOBPO 
SET 00830 
SETQ08A0 
SET008S0 
SETwnBGO 
5ET00870 
SET008BO 
5EI0OB90 
St TO OS no 
SET00910 
SET009?0 
SET00930 
SETOOVAO 
SET009S0 
SET009frO 
SETn0970 
SET009R0 
SET00990 
SETOlOnO 
Sf TOIOIO 
SETOIOPO 
SET01030 
SETOinAO 
SFTOinsO 
SETOIOGO 
SETni070 
stToiOPn 
SETOlOPn 
SETOl mo 
sF^Tonm 
SETOl 1?0 
SETOl 130 


SEIoj 


lAO 

ISO 


SETOL 
SETOl mo 
SETOl 170 
SETOllBO 
SETOl 190 
SET01200 
5ET012TO 
SET01220 
SET01230 
SfeTOlPAO 
SET012S0 
SET01260 
SET01270 
St7O12R0 
SETOl 290 
SET01300 

stTonm 

SE TO 1320 
SET01330 
SET013A0 
SET013S0 
SET013G0 
SET01370 
SLT013P0 
SET 01 390 
StTOlAOO 
SETOIAIO 
SET01A20 
SETOIAGO 
SETOIAAO 
SETOIASO 
SET01A60 
SET01A70 





FO*>T»*N h 


r 

r 

r 

C 

r 

r 

r 

r 

r 


SUOPUUTIWF SPLIT (KL*SUMfSKFM«KURT«OSUM«OVAR*ORT»OSQf 
\ SP«TAM fPPtVERtnURtOSGvDTAU) 

IMPLICIT PE4L*P IA-MtO-2» _ 

«FAL«fl SUMM«SUMV«nRA0S0t0DS6«DnS61innS62*f)0S63«DDS64 
hFAL*A OFLTN«nRES«ERTfHTRfSlG«6AM*6P«GMf«A«(lfltTMd«TRDt0eLSO 

’^PFAL2/SFSTloflFST!IlHlSp?JcT?M^t|s?Z|4S^^ 

»FAL*S (.>nStTVD8ti*TDEL*0VDELiTsW0A*T0EL*DyC 
oF.AL*« OEwEO,TFPFJ't.T»?V04f5vD?D?t0C6V2*D2#ni 
RFAL«P 0S«0^*S(>l«TAU10«DD3«nERE0tTERFnQ«TR2 
0£AL*H UNinSQ 

^"n)""vsniriF3riig^5?vh2i!*xSii"¥SU the cluster on, using 

(?) T0^1Ew|RATF^TW0*NFy*^CLUS?ESs^C0RftFSP0N^IN6 TO THE 
P <npAHLF HALVES OF THE OLD CLUSTER 
(3) TO HU I LO THEM INTO THF TREE 



4 0®PI0P (9) *O0EN<«) 

WF 4L«A VR1U(47S) «0EN(999) •«RFF(999) 

WFAL*M ALINKM) 

FOU I VALENCE (LINK U ) tALlNKU) ) , (LINK ( 31) • INOEX (?7> ) 
FOUIVALFNCE <L INK < 3) ) ♦LSUBS ( .30 ) ) 

FUUTVALENCF U ink (31 ) *L 


(LINK(31 ) iNSYMHM?) ) • 
. (LINK ( n ) #CIN(24) ) • 
(LINK (3!) *SPFAC(?1 ) ) f 
(I INK (31 ) ,OPP0P( IP) ) • 
(LINK (.31) ,V/0LRT (IS) ) • 
(LINK(3l),niSS(l?)), 
(LINK (31) .OCIN( 10) ) ♦ 


SUPER (29) ) ♦ (LINK (31 ) ,I0ADJ(2A) ) • 


(LINK ( 31 ) *PCUM( 2 K) ) , (L INK ( 31 ) *PRIRCM I ?S) ) 
(LlNKOl) *CT 0 T(? 3 ) ) « (LINK ( 31 ) ♦PROP ( ??) ) ♦ 
(LINK( 31 ) •WA 0 J( 20 ) ) ♦ ILINK( 31 ) ♦«(!?) ) ♦ 
(LINK( 31 ) ♦Oyn h ) ♦ (LINKOI) fVCLINl, 

(LINK ( 31 ) *DCCN( 14 ) ) ♦ (LINK ( 31 ) tPOHA 
JLINK( 31 ),PPASS(l?))f (LINK( 31 ),PST(... . 
(LINKOn ♦PC 0 N 0 ( 7 ) ) ♦ (LINK ( 31 ) ♦ VRIN ( 7 ) ) ♦ 


» * 

(13) ) 


(L INK ( 31) •'iF.N(7) ) f (LINK(31 ) ♦OPRIOR(9) ) ♦ (LINKOl ) ♦OOENIG) ) ♦ 
(L INK (31) ,ORFF(P) ) 

COMMON /JOINPR/WnjOIN.RLIMfNOJOfNOELlM 

COMMON/CLUS/ junk ( 1 ?.) •NARL*NTnP»NTRS7M»NWANT*LINK ( 14000) 
n I mens ION m¥ar( 31 ) ♦LR(3) fLV(3) 

FOUIVALKNCe (LR ( 1 ) ,L VP I N) ♦ (LR ( 2) ♦LKURT ) ♦ 

) (I R ( 3) .LOWAP) ♦ (LV n ) *LSUH) ♦ (LV(2) *LSKFW) ♦ (LV(3) fLOSUM) 


♦XUNFLO.WADJINfELIMTHf 
♦ DWF AC • OR AC TM ♦ AMOF AC ♦ 
VRJOIN,WSIM,WOELSM 

IMTfKROOT,EPS,nELT. 

.SFPTHfVFACfAMMfSHLTHf 

♦GRACTMfAHOFACf 

INfVRJOiNtWSiMfWObLSH* 


RFAl «4 -*TIMlTff.PS,OELT, AMOtODCONfXOVFLO 
1 8FPTH. VFAC.A'^ i»SBLTH,WF ACtPORATHtSPMVTH 
? AMOMTN*AMoma«, AMOPAT*VOLLIM,RIAS,PJOTN* 

3 .PETTFW.COP) FM.SPCOR 
COMMON /MISC/ M9.MM,LR,LV,NINCLSfMXAR,V)7 

I amo.odcon.xovflo.xunflo,wadjtn,flimth 
? INr>yvLfR^AC.NPTSO*PORATH.SPMVTH,DWFAC 

3 AMOMIN, AM0MAX*AM0PAT» V0LLIM,BIAS*PJ0 

4 riETTLP*MonFfCUPLFN,SPCOP 

COMMON /STP)'W/waIT»C 0NLV*SK«ND*SKCHI,TR8ND,TRCHI fURKHNOfURKCHI • 
1 PACChl (?) .MaCCFL (?) tVACCFL (2) 

PFaL* 4 KaiT.CONLVtSKHNl),SKCHI,TRBMD.TPCHI,URKflND»URKCHIt 
1 PACCFL^MACCFL.VACCEL . , . 

COMMON/CLUSTH/ IBF6lN,T0TWP0fCLSNAMf IPTfNOFLO* SYM(61) ♦„, 

1 LNCATf PRNT(4) ♦ KLBC • PPTME, PROUT, TOTPIX* 

? SCPAMl .FWFPIX*HUFTOT»NHUFSO»NDUMPtLBUFD 
3. maxhF, area, Nyns, NyORS, NPTS, LPUF, I(51,N0CYCL 

INTFOEP TOrwRn,SyM.PRNTfPHTMEfPROUT*TOTPIX,SCRAMlf8UFPIX.HUFTOT 
1 .clsnam 


SIIMM ) .SKF y ( I ) ♦KURT ( 1 ) fOSUM(l) »OVAR( 1) 

AL<^s MSu(*^0*MO) ,Sft(MQ,MO) ♦TaU(M0,MQ) ♦ERE (MO,MO) ♦ 

♦OPT (MO*MO) ♦DUM(MO,MQ) ♦OSG (M(),MQ) ♦nTAU(MQfMO) 


PEAL - 
PE AL<»s 


TO SAVE STOPAGF* WF USE SEVERAL ARRAYS FROM THE CALLING , 

SFOUrMCE IN MORE THAN ONF RAY. SINCE WF CANNOT EQUIVALENCE 
NAMES IN THF CALLING SEQUENCE, THESE ARRAYS HAVE NON-MNEMONIC 
inFNTTK IEP«. IN PARTICULAR, 

nSO Ib ALSO USED AS THE TRANSPOSE OF ORT 


SPLOOOlO 
SPL00020 
SPL00030 
SPL00040 
SPLOCOSO 
SPL00060 
SPL00070 
SPLOOOPO 
SPL00090 
SPLOOIOO 
SPLOOllO 
SPL00120 
SPL00130 
SPL00140 
SPLOOISO 
SPLOOIBO 
SPL00170 
SPLOOlPO 
SPL00190 
SPL00200 
SPL00210 
SPL002P0 
SPL00230 
SPL00240 
SPL00260 
SPL002B0 
SPL00270 
SPL002R0 
SPL00290 
5PL0030n 
SPL00310 
SPL00320 
5PL00330 
SPL00340 
SPL003b0 
SPL00360 
SPL00370 
SPL003P0 
SPL00390 
SPL00400 
SPL00410 
SPL00420 
SPL00430 
SPL00440 
SPL004S0 
5PL004K0 
SPL00470 
SPL004PO 
SPt 00490 
SPL00500 
SPL00510 
SPL00S20 
SPL00S30 
SPL 00640 
SPL00560 
SPL00560 
SPLO0S70 
SPLOCSRO 
SPL00590 
SPL00600 
SPL00610 
SPL006P0 
SPL00630 
SPL00640 
SPL006S0 
SPL00660 
SPL00670 
SPLOOGPO 
SPL00690 
SPL00700 
SPL00710 
SPL007P0 
SPL00730 
SPL00740 
SPL007S0 
SPL007P0 
SPL00770 
SPL007P0 
SPL00790 
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rTL^ t SH.n 


fOHT»AN A 


RKC rs Also OSFO AS S6**? AND AS 0 (OBJECT I VE » /O (S6«*?» 

Vfw is ALSO USEO AS TAII«*2 AND AS f)(0BJECTIVE)/0(TAU*«2» 

OUM IS A DUMMY ARRAY USEO IN MANY WAYS 

THE TTEt^AVIOS USES Su AND TAU AS THE SQUARE ROOT OF THE COVARIANCE 
*^AToi¥. TO INSURE POSTllVE DEFINITENESS 

CONTROL PawamETERS 

COmmoN/SPRaR/ OAP-FTtDELMETjS6TMETf0RC0V*0BSKFWt0BKURT*E*MNS0* 

? SMRi-IN.FAMA, •OAMCFM*TS(JlN|#DAMPt00BPMS*0IA6*TlM0.TlMl#ITERMXf 


SPPEn.lTER 

RFaI.* 4 OAMMFT.OELMFTfSGTMFTtORCOV 


rr m.-** iiprr^r • • i >c.t.nr I f I nr I tuni,uv • OPSKEW • OHKURT • EXNNSQ* 
SRRMlM*eXPAX*OAMCEN#TSQINIfOAMP*OOBPMS«TlMI),TIMl.SPREP 
wtAL*0 OEL ns» •SPROA()6)fT(lA>;TPV0?10l rOOEL 
1 no) •nSOT (IS) ♦VUEL(lA)#VnS 00 (l 6 )*S(i 6 )#En 6 


? FVURTdft) •FRFO(IA) 

RFAL*ft RID 

FUUI VAI FNCt (F«EO ( 1 ) *R ( 1 ) ) 

L 001 cal 01 Aft 

ftATA IPLAfl*^,lSTARS /* *,•••♦##/ 

OATA GPAOSNtftRAORT/l.*!*/ 


6) 


MOSsMO*UO 

nOftFAf * MAXIMUM TTMF. TlMOtTlMl* 
OOHFAC* ( T IM0*AMU*T|M1 ) *00«PMS 


OOHPMS TN COMMON CBLO 


WF MUST FIhST ftFNFRATE 
AUP KURT US IS. 

VAR] AMCF 


CENTERED VERSIONS OF THE VARIANCE. SKEWNESS, 


SPLOOROO 
SPLOOtllO 
SPLOOBPO 
SPt 008!T0 
SPI.00840 
SPL008SO 
SPL00800 
SPL00B70 
SPLOOBBO 
SPLOOflOO 
SPLOOROO 
SPLOORIO 
SPLOORPO 
SPL00930 
SPL00940 
SPL009S0 
SPL00960 
SPL 00970 
SPL009RO 
SPL00990 
SPLOIOOO 
SPLOlOlO 
SPL010?0 
SPLoinio 
SPL01040 
SPLOIOSO 
SPLOIO^^O 
SPL01070 


rxPARn VWT'^' AND KURT 
WOalPO/P(KL) 

TAl I. IjSrMTX (OUM, VRIN(KL*n ) 
PNaAPftr ?F.f' 

TAI L f'S'JMTX <r»T AU.KUPT(KL*1 ) ) 
wFfuvF t-EfftHT Factor from skfw 

no M lal.MQ 
SKErfUFCSs «,kFw 
S(I)eSKr ( I.KL)*RO 
K) CDNTINUF 

)3r, rUNTINUr 

Shift to framf wttr unit invfrsf 
COOROTNaTF transmat ion created in 
CALL FTUROT (MQ.M(j,nUM,E.ORT) 


COVARIANCE PATRIX (OUM) 
ORT. EltiENVALUFS IN E 


nil «TF ALONft COOROTNATE axes to make covar a unit matrix 

00 101 I=lvO) 

F(T)sF( 1 )*W(KI ) 

Fk 3 US(jRT (DahSIF 1 1 ) ) ) 

DO 101 ,.I=1.MN 

opt (J. I ) akFAORT |J,I) 

101 nsD(T..n=oRT<j.i) 

OO THF- LImFAR transformations 

CALL MLT (0UM,0TAU.0RT ) 

CAi.L Ml T (0TAU,0SU.()UM) 

CALI vVkC(P*0SO.S) 

THF PRORLFM is NO IN A FRAMF RHF.PE THF COVAR MATRIX IS A UNIT 


1?1 roNTlNOk 

TUtTl'aii'F Af-Il PA*‘'F 
ftflOa.OOOOlFO 


ftOOU INITIAL GUESS 


FToO FwAHF '.HtHF KURTOSIS IS DIAGONAL 
Call FTftROT fHR.MU,DTAU,EVURT»nUM) 
KO«TDSISsKURT-(M 0^?)*C0VAR (IN TRANSFORMED 
(>D SR |al,MO 

ftp FVURT ( T ) sf VURT < I ) *WO-HU 

W0T«TF SKFwHtSS TD THAT FRAME 
CALI. HTVtC (S.nUM,R) 


FRAME • ) 


SPLOIOBO 
SRLologo 
SRLOllOO 
SPLOlllO 
SPLOllPO 
SPLOl 130 
SPL01140 
SPLOl ISO 
SPLOllSO 
SRL01170 
SPLOIIBO 
SPLOl 190 
SPL,0i?O0 
sPLoi;>in 
SPL012?0 
SPL01230 
SPL01240 
SRL012S0 
SPLOl 2ft0 
SPL01270 
SPL01280 
SPL01290 
SPLOl 300 
SPL01310 
SPL01320 
SPL01330 
SRL01340 
SPLOl 3S0 
SPL013ft0 
SPL01370 
SPL013fln 
SPL01390 
SPL01400 
SPL01410 
SPL01420 
MATRIXSPL01430 
SPL01440 
SPL014S0 
SPL01460 
SPL01470 
SPL0I4B0 
SPL01490 
SPL01500 
SPL01510 
SPL01520 
SPL01530 
SPL01S40 
SPL015S0 
SPL01560 
SPLOl 570 
SPL01580 
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D.-i r»T no no r> ->n *> nn on n nno on nn 


fUft <;PMT 




INITIALIZATION 
Ofl IN«,3 
IHFS«0 
PT<>M«0, 

OHTSMsn„ 

TRN«,0S»A**O 

Tw«>(J*TPN«THN 

AHttVALsOtn 

FIND max negative EIGENVALUE CALC ROOT SUMS FOR SKEWNESS ADJUSTMENT 
no in TslfPO 

IF(FVURMI) .GT.AMXVAL) GO TO 103 
AMXVAL«FVURT<I > 

?HFS«I 

103 »T « n«;uRT<3?.no*nMAXl (O.DO*EVURT(in*TR50> 

«T*:m*RTSM*«T 
111 OMTSM*OkTSM*l ,/«T 
TCOF*4 , ♦ AMU 

OK E<»R NfG EIGFKVALUT 

IF ( I«ES.FO,f>) GO TO U« 

negative eigenvalue. APviUST »GOOP GUESS* TEMPORARIES 
OFLlN*r)S(JRf (OSORT <-ft.«AMXVAU) 

SAW a nAHSISURFS) ) 

PTSNaRTSM^5.3333J33«SAR/0El.IN-TRN 
ORTSMeORTSM-1 ,/TWN 
TCOFaTOOF*. 133133 

ROS AMf» NFG EIGENVALUE AO JiiSTMEN IS 
OK FOR NFG EIGENVALUE 

llA TPNsTRN-(TCOF*TRN-RTSM)/(TrOF-TRN*ORTSM) 

T«SQrTRN«TRN 

IE ( IHES.EO.O) GO TO HR 

NEG ElOEMVALUE. AUJIKT *6000 GUESS* TEMPORARIES 
EhT a nSURT (-10,hGG6700«AMXVAU 

TRE rOS.ACOS EERRFSSION FINDS THE ROOT OF A CUHIC 
ITFMR a (SAR*U.*SAH-TRN*OFLlN)/(AMXVAL*ERTn 
IITEMP s OMAXl (-.QRQQRODO. ITEMP) 

TJTEMR a OMINI ( .RQQRRROO* I ITEMP) 

0E( IN a SAH/SURES) * OHlNl (?. DO. OSORT (FPT*f)COS ( .3333333300* 

1 OAPOOSn JTEMR> ) ) ) 
nHESa?nn*S( IHESI/DEL IN-.SDO*TRN 
VI ANY CASE. C'^FATE FACTOR USED IN MEAN DISPLACEMENT CALC 
1 IR DEI EACaDhl. IN**»'*ORKUPT/ORSKFW*,SDO*P,SDO/OSQRT { 0 AHS ( TPN > / AMO ) 

generate actual initial value® 

I'D IIS lal.’^O 
Elal./F(I) 

INITIAL COVARIANCE maTRICFS AND ROTATION MATRICES 
00 11? Jal.-M^ 

OSG(J.I)aE I*owT(J.T) 

SGI J. I ) aOE.O 
n? TAOIJ.nmFO 

CALCULATF MEAN OISRLACEMFNT USING SKfcWNFSS 

FRTainS JRT (DRAXl (Or>P.3P.On*FVURT m .TRSQ) )-TRN)*.2SD0 
rTRs?.«KRT4TRN 

DEI IT) a4.*S ( I ) *HTR/ (f)FLEAC*HTR*HTR) 

IF ( I. ME. IRES) GO TO 113 

SPECIAL CALCUl ATION ALONG MAX NEG EIGENVECTOR 
E wTaOHFS 
DEI. (DaOeUN 

113 STG a DahSnEO-.?SFO*DEL(n*OEL(I) ) 

CALCULATE covariance MATRIX DIAGONALS 
DDSGl a ?,on*siG-.ooino 
noSG? a STG.FRT 

noSGl a DMini (DDSGl .DDSG2> 
nnsGA a n^'AX 1 {n,i)o«ODSG3) 

UnSGrDSORT (D0SG4) 

SG ( T . I ) a DDSG 

ns TAUU.DaDSOPTIDMAXl (SIG-ERT. .00100) ) 


SRL01590 
SPL01600 
SRL01610 
SRL01620 
SRL01630 
SPL016A0 
SPL016S0 
SPL01660 
SRL01670 
SPLOlGflO 
SPL01690 
SPL0I700 
SRL017IL 
SPL017P0 
SPL01730 
SPL0I740 
SPL017S0 
SRL01760 
SPL0I770 
SRL01780 
SRL017R0 
SRL01800 
SRL01810 
SRL018R0 
SPL01830 
SRL01840 
SPLOlRSn 
SPLOlRftO 
SPL01870 
SRL01880 
SRL0189G 
SRL01900 
SPL01910 
SPL019P0 
SPL01930 
SPL0I940 
SRL019SO 
SRL01960 
SRL01P70 
SPL019Pn 
SRL01990 
SRL0?n00 
SPL02010 
SRL020PO 
SRL02030 
SRLO2040 
SRL020S0 
SRL020SO 
SPL02070 
SPL020P0 
SPL02090 
SPL02100 
SPL02110 
SPL021P0 
SPL 02130 
SRL02140 
SPL021S0 
SRL 02180 
SPL02170 
SPL02180 
SRL02190 
SPL02200 
SPL02210 
SPL02220 
SPL02230 
SPL02240 
SPL022?0 
5Pl.n2280 
SPL02270 
SPL02280 
SPL02290 
SPL02300 
SPL02310 
5PL023P0 
SPL02330 
SPL02340 
SPL023S0 
SPL02360 
SPL02370 
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FIM^t SPLIT 


rOPTRAN A 


CALL MLT (npTfUSGfOUM) 

I^IT1ALI7F ITEPATIONS 
SST7*-.0AF« 

REST«iniO 

ITFR»n 

ITFPATTMN cycle STARTS MERE. 
CALCULATE ORJECTTVE FUNCTION. 
TF.MPOHAWIfS DFPENOTNG ON GAM 


fiP»,snn«nr>n*6AM) 

0M*.500-.Sj()*r,AM 

AA»GM*0P 

RRsl.Sr>0*6AM*GAM-.SOO 

CAI.C SlfiPA SO., TAM SO AND DIFFERENCE (OSO) 
i,ALL MLT(EWF.SG.Sfi) 

CALL mLT(VFW.TAU.TAU) 


MHTF— hOS CAUSFS PROCESSING OF WHOLE ARRAY 
no lf,2 Isl.MOS 

If? nso<T,nsERF(i,n-vER(i.n 

CALC DEL**?. TRACE DSQ 
tpo*oeo 

nFLSO*OEO 

no ifi 

OFI.SO=ntLS.J*nEL { n *DEL { I) 

l(Sl THnsTRn^USOd.T) 

CALC nED^OFL. OSO*nSQ 
CAt L MVKC (R.OSO.OFU 
CALL MLT (DOM.DSO.OSO) 

TFMPS FOR OHJFCTIVE FUNC CALC 
TMOsTRO-OAM*OELSO 
HHiJ=pp*nfcl.SO-OAM*T«D 
OAM?s?FO»GAi>^ 

OAMuELsOAMAHELSO 

FRrOYsAMW 

fr«;kfw=oeo 

FPKMRTsOFO 

VFCTORS AND ARRAYS USED HERE ARE ALSO USED IN THE HERlVATIVE CALC 
CALC actual errors 
no INS I si. MO 

SPROA < T ) sTWn*nEL ( I ) ♦2F0*R < I) -GAMDEL*OEL ( I ) 

T<nsAA*SPHOA(n-S(I) 

no Iff Jsi.MO 

r>Fl TA ? 

FrF < I ..I) sAAADFL ( I ) *nEL ( J) ♦fiR*ERE ( I . J) *-GM*VFR ( I . J) 

FRCOVsFRCUV^f HP ( I . J> **? 

Jer It , saa* < tmg*dso ( i ♦ ji ♦?eo*im»m ( i . ji ♦bpp^dfl < i ) *oel ( J) - 

1 oAM?« (OEU I)*R(J)^DEL(J)«P(I) ) ) 

CALC ERRORS ?N KUPTOSIS (ERKUPT > . COVAPI ANCE (EPCOV) . SKEWNESS (FPSKFW 1 
ISA EPKURTsFWEUMTtVFRd.J} **? 

FwCOVsF HCUY-?E0*FRE (I . 1 1 

FWKUPl si-'RKUOT* (-?F0*VER d . I ) ♦EVURT d ) 1 *EVURT ( I ) 

YEP (I . I) sVER (I . I) -EVURT (I ) 

FREd.nsEPp^d.n-iEo 
ise EPSKEWsFRSKEW^T d)*Td) 

TEST NFw POTNT 

CALC OBJECT I YF FtlNCTION 

OBCOV. OBSKW, f»WKURT ARE USED AS PARAMETERS DEFINED IN CRLO 
OBJsnHCOY*EPGOY*OHSKFW*ERSKEW*OPKURT*EPKURT 
0AMC6Nsr,AM*r,AMCFN 
GMCFs 1FO^GAM«BAMCGN 
OHJsOHJ«GMCE 

CALC STEP SI/E; (SSI7) AND 
noFSTsPEST 

TE (ITEP.fcO.T) PCTIMPS.2S 


SPL023R0 
SPL0?3R0 
SPL02400 
SPL02410 
SPL02420 
SPL02430 
SPL02440 
SPL024SO 
SPL02440 
SPL02470 
SPL024fl0 
SPL024R0 
SPL02600 
SPL02510 
SPL02S20 
SPL02S30 
SPL02540 
SPL025S0 
SPL 02560 
SPL02570 
SPL025«n 
SPL02590 

SPL 026 on 
SPL02610 
SPL02620 
SPL 02630 
SPL02640 
SPL02650 
SPL02660 
SPL 02670 
SPL026R0 
SPL02690 
SPL02700 
SPL02710 
SPL02720 
SPL02730 
SPL02740 
SPL027S0 
SPL02760 
SPL02770 
SPL027S0 
SPL02790 
SPL02800 
SPL02810 
SPL02820 
SPL 028 30 
SPL02840 
SPL 028 SO 
SPL02R60 
SPL02870 
SPL02880 
SPL02890 
SPL 029 on 
SPL02910 
SPL02920 
SPL02930 
SPL02940 
SPL02950 
SPL02960 
SPL02970 
SPL02980 
SPL 02990 
SPL03000 
SPL03010 
SPL03020 
SPL03030 
SPL03040 
SPL030S0 
SPL03060 
SPL03070 
SPL03080 
SPL03090 
SPL03!00 
SPL03110 
SPL03120 
SPL03130 
SPL0314G 
SPL03150 
SPL03160 


B-84 



( 


riLft SH.IT 


FU<VT»AM A 


r 

r 


r 

f 


FXPErT*SS I Z*«»A0«T*6MCF 
SH»1NK»1,*(«FST-0RJI/FXPECT 
OSHRMN « SH»P|N 

«;mPIMK«OMAX1 (.4do/OMAX 1 (SHRINX*1.0-10)fDSHRMN) 


ORJFCTIVF 
60 


F«JN 


IF<0«J.LF.HFStr60 TO . _ 

Of’J FUNCTION MAS NOT IMPROVED* 


NATION 


c 

r 


CM TO SEE IF 

■ !fV 

SMOV« (SHHINK-1F0) *5817 
SSI/*SSU*SMP|NK 

TF (0ARS(SST7) .LT, lE-10) 
THIMP*0MIN1 (THIMP.OHJ) 

PC T I MP *PC T ! MP-PC T I MP*0 AMP* , 7 
60 TO IVO 


HAS IMPROVED 

SHRINK STEP SI7E* SKIP NEW DERXV 


60 TO ?00 


f: 

r 

r 


OM.I function IMPROVED* CONCLUDE STEP SIZE CALC 
J7D THlMpsHMlNl (REST-OBJtOBJ) 

PCTTMPaPCTI ^P^ (THIMP/0BJ-PCTIMP)*0AMP 
XTPMP a PCTIMP * OBJ 

IF(PriTMp*ORJ.I.fc.00BFAC.JP.ITER.6T.ITFRMX) 60 TO 200 
BfcSTsOHJ 
OFXMAX * kXMAX 

SMPINKaDMiNJ (OSOHT (EUMNSVi^ ( lEO-SHPINK) **?) ,DEXMAX) 
SSIZsSSI/^S^^WlNK 
SM0V*SSI7 

CAl CUI 4TF OFPIVATIVES 

TFMP SCAl, flHS nFPFNOINO ON ORKURT* ORSKEW DEFINITION 
nKURT = AA*OBM<PT 
nKPT6twx|)KUOT*6AM 
nSKFWaAA*OBSKf-> 
n06B-PF0*OKPT6-' 

TF*^P VECTORS ANO FATRIX PRODUCTS 
CAl L MVFC(EPEr»*FRE*OEl.) 

CALL MVFC(D60T,nS0.T) 
call MVFC(VnFL*VEP*DFL> 

CALL ACOM(UUM*VFR*OSO) 

CALL MVFCIVUS0D*0I/M*DEU 
iNlTIAl.I^f FOP inner products 
TVOSO psOEO 
TDFLsOEO 
PvntL=nko 
TSPROAsOFO 

CCLC. INNER POOPUCTS 
00 171 l=l.og 
TnFLsTOEL*OP| (T)*T(I) 
nvnt.L=OVUEL^0EL ( 1 ) *vnEL < I ) 

I SPR0A = TSPR0« *T ( I ) *SPROA ( I ) 

TVOS()?sTVOSO?*OUM (NT) 

171 TRVD< I ) =I>S^F^*T ( I ) ♦OOS*Vl)El ( I ) 

initialize tor morf inner products 
r)EREn = OE(^ 

TEPEDO=OEO 

TR?VD4rOfc(t 

nvn?o?=oE» 
nCOV2=2t 0*f)RC0V*AA 

CALC. DFPIVATTVE COEEEICIENT TEMPORARIES 

|)?r?EO*AA* (OHKURT* (HB*OVOFL-.5FO*r,AM*TV(>502) -OBSKEW*GAM*TOEL) 
n3sUSKF*<*(TRr)-0AM*0FLS(J) 

OS*'eW?a?tO«USKFW 
0*r)NURT 
^^BOt<uPT?*H»p 
OS=-?F0*UKUPT?*6AM 
ECO BOHrov*op 
TAUlsOPCOV*6U 

UNTDSO=nSNER*Tuf,L*nKURT*.SFO*TVnS(J2-OKRT6M*DVOEL 

nOTsr)KURT«TRn-OKRTGM*DEUSQ 

CALC matrix temps and dot PRODUCTS 

no 1, 7S 1 = 

nhREnaOF REt)*OEL ( I ) *EPED ( I ) 
nvnpU^=nv()?U?*oeL ( I ) *VOSOO ( I } 

noEL IS TUT. DERIVATIVE WITH RESPECT TO OEL 

DUEL ( f ) =DroV?*FPED ( I ) ♦D2*0f L ( I ) ♦03*T ( I ) ♦0SKEW2*0S0T ( I ) ♦05*V0EL 
1 0(S*VDSQI) ( I ) 

no 17A J= 1 .M(J 

TEPEOObTT RLno*ERE ( I , J) #OSQ ( I . J) 

TRPVU4 = TR?V04*DS(.?( I* J) *OUM(I*J) 




SPL03I70 
SPL031BO 
SPL03190 
SPL03200 
SPL03210 
SPL03220 
SPL03230 
CALCSPL03240 
SPL03250 
SPL 03260 
S?C03270 
SPL032BO 
SPL03290 
SPL03300 
SPL03310 
SPL03320 
SPL03330 
SPL03340 
SPL033S0 
SPL03360 
SPL03370 
SPL033B0 
SPL03390 
SPL03400 
SPL03410 
SPL03420 
SPL03430 
SPL03440 
S.>L 03450 
SPL03460 
SPL03470 
SPL03460 
SPL03490 
SPL03500 
SPL0351G 
SPL035P0 
SPL03530 
SPL03640 
SPL03550 
SPL03660 
SPL03570 
5PL035ftO 
SPL03590 
SPL03600 
SPL03610 
SPL03620 
SPL03630 
SPL03640 
5PL03650 
SPL 03660 
SPL03670 
SPL 03660 
SPL 03690 
SPL03700 
SPL03710 
SPL037?'0 
SPL03730 
SPL03740 
SPL03750 
SPL 03760 
SPL03770 
SPL03760 
SPL03790 
SPL03800 
SPL03810 
SPL03820 
SPL03830 
SPL03840 
SPL038S0 
SPL03860 
SPL 03870 
SPL03880 
SPL03890 
SPL 03900 
(I) ♦SPL03910 
SPL039P0 
SPL 039 30 
SPL 03940 
SRL03950 
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FTI.F; SPI IT 


FOPTHAN A 


0»YOSQ«TPVn ( I ) <»DEL ( J) ♦TPVD I J) *nEL ( I ) 

1 _ . _ ♦Of)3*VEPn*J)*OKUPT?»DUM<I*J) 


. , yeg n . J) « taui*er£ < i f j ) -dbyosq 

174 FP€ n . J» *Sfil *EPE ( I * J> ♦DBYDSO 


FPF ( I t I) ( I • n ♦UNiDSO 
ITS VEP(f f n«VE»(lft)-UNIDSO 

CALC OEPTVATIYFS WITH RESPECT TO COVARIANCE MATRIX ROOTS 
CALL ACOMIUSGtSGtFREI 
CALL ACOM(OTAU.TAUtVER) 

CAIC DEMI VAT IVE WITH rNpECT TO 6AM 

OAamsOPCOV* (-.SFO) ♦ ( 6AM*0ERED-TERED0) -OHSKFW* ( .5tO*GAM*TSPROA* 
I AA*ijELSr.iAfniL).OBKURT*(GAM*(,25EO*TVDSOP*TRO*.5EO*TR2V04* 

? (HH-.SFn)*nELSO*DVDEL)- 

3 .*jFO*HH*(,SEn*DELSOMVDS02*OVOEL*TRD*?FO*OVn202I I ♦ 

4 GAMCGM/ (GMCF«6MCF)«0RJ 

CALC TML S<i. OF THE DERIVATIVE AND ITS ROOT 
SUMMsOFO 
SUMV*0FO 
DO IMl Isl.MO 
SOMVsSUMV^DDEL ( I ) *DDEL < 1 ) 
no lAl Jsl,MO 

SUMH*SUMM40S6 ( T • J) *0S6< I • J) ♦DTAU ( I * J) •DTAU ( 1 1 J) 

IFl CONTINUE 

6R 40SO»SOkM*SOTME T tSUMV*OELMET ♦D6AM*n6AH*6AMMET 
ORftDRTxOSnRT (OPADSQ) 

SET U» AMO TEST POINT, 

ENTRY FROM NO OERIVATIVE CALC. 

I on CONTINUE 
1R4 rONTiNUE 

~tOVF TO MFW POINT 
IQ^ SMOVaSNOV/OPAORT 
SOTNOVsSMOV*S6TME T 
rui IRI 1 = 1. ms 

SO ( I » n sSO ( I . 1 ) ♦S6TMOV*DSU ( I . 1 ) 

TaU ( I , U sT AU ( I . 1 ) ♦SHTMOV*OT AU ( I ♦ U 
O CONTINUE 

OtLMOVsOFl MFT»SMOV 

no lO? 1 = 1 «MU 

1 o? (>E L ( T ) 1. ( n f nELHOV*DOEL ( I ) 

AAMsC',AMfSP0V«G4MNET*nGAH 

TTEPaTE ano I. IMIT MUMPER OF ITERATIONS 
TTEw = TT»-R*l 

IF nTPR.GT.TTERMX) GO TO 200 
r,(» TO ISO 

*** GENERATE TWO MEt» SUHCLUSTEPS ** 

shift cooroimate frame rack 

200 CONTINUE 

CAIC nso a Transpose of old old rotation 

2S0 no 251 lal.HO 
IH) 251 JaJ.MO 
?SI nSO( J.I, XOHT ( 1 .J) 

nso AMD DTAU ARE TFMp ARRAYS FOR COVARIANCES 
TAIL MU' (0S»;.SG,S6) 

CALL mLT(I)TAU.TAU.TAU) 


COVARIANCE MATRIX ROOTS 


SMEAR THE MATRICES UUT RY THE AHH 

no 2S3 lal.MO 

nu 251 Jai.MO 

sRPEnna.2»sppEn*nEL < i > *oel i j) 

IE (T.EO, J) SPREDOxSPREOn^SPRFO 
OSS ( I . J) aOSG ( I . J) ♦SPKEOO 
RSI DTAUU ♦ J) at)TAU ( T .vJ) ♦SPREOD 

no ACTUAL ROTATION 

CALL MLTIOUM.nSG.DSQ) 

CALL MLTIDSO.ORTfDUM) 
call MLT (HUM, DTAU, OSOI 
CALL Ml.T (OTAU.ORT.OUM) 

CALL MVEC (R.ORTtDEU 
cplate and link nfr clusters 

E AaMORSr-MNlMCLS) 


AHHITRARY FACTOR 'SPREO* FROM CRLO 


SPL03960 

SPL03970 

SPL03960 

SPL03990 

SPL04000 

SPL04:<10 

SPL04020 

SPL04010 

SPL04040 

SPL04050 

SPL040G0 

5PL04070 

SPL040PO 

SPL 04090 

SPL04100 

SPL041 10 

SPLP4120 

SPL04I10 

SPL.04140 

SPL041S0 

SPL041M) 

SPL04170 

SPL041P0 

SPL04190 

5PL04200 

SPL04210 

SPL04220 

SPL04230 

SPL04240 

SPL042S0 

SPL04260 

SPL04270 

SPL042P0 

SPL04290 

SPLL4300 

SPL04310 

SPL04320 

SPL04330 

SPL04340 

SPL04350 

SPL04350 

SPL04370 

SPL043P0 

SPL04390 

SPL04400 

SPL04410 

SPL04420 

SPL04430 

SPL04440 

SPL044S0 

SPL04450 

SPL04470 

SPL04480 

SPL04490 

SPL 04S00 

SPL04510 

SPL04620 

SPL04530 

SPL04540 

SPl-04550 

SPL045G0 

SPL04S70 

SPL04SP0 

SPL04S90 

SPL04fc0n 

SPL046KI 

SPL04620 

SPL04630 

SPL04640 

SPL04650 

5PL046f0 

SPL04670 

SPL046SO 

SPL045J0 

SPLOAFOO 

5PL04710 

SPL 04 720 

SPL 04 7 30 

SPL04740 


E-B6 


Ffir; SPLIT 


FOPTPAN A 


r 

c 


r 

r 


»• 

r 


r 


r 

r 


f' 

r 


r 

c 


KR«MOPSTR(NTNCLS) 


C»FATg^NAM|S^ANp^LINKAGFS FOR NEW CLUSTERS KAt 

INr)EX(KA)«INOXVL-l 
INDEX (KH)*INDXVL 
LINK(KR)»0 
LSUBS<KH)«0 
I.SimS(KAJ *0 
LINK (KA)»HH 
LSMHS(KU«KA 
L50PER(KA)*KL 
LSUPER(KP)»KL 




TDaDJ ■ adjustment POSITION IN TERMS OF INPUT POINTS 
H)ADJ(KAJ sNPTSO^TOTPIX 
TOADJ(KB)«IOAOJ(KA) 

SFT UP WEIGHTS AND PROPORTIONS 
PROP (K A) aGP 
pROP(K»)sGM 
OpP0P(KA)sr.P 
OPPOP (KH) 

SPFAC (KA) s-OORR. 

SRFAC (KB) *-R9R9. 

P09AT(KA)xO, 

PORAT (KB) so. 

PPTPrM(KL)el . 

SPPAC(KL)sAPPIOR(KL) 

OPO I OP ( KL ) *SPF AC ( KL ) 

SFT PAPAMFTEPS. 

WSTAPT*WFAC*AMO*SPCOR 

W(KA)sWSTART 

OW(KA)xW(KA) 

riN(KA) xwSTAPT*PPOP(KA) 

OCTN(KA) xf IM(KA) 

ODFN(KA) xClK«(KA) /GP 
riOT (KA) xW(KL)-OUrM(KA) 

W(Kb)sWSTA»T 

Op(KR)xW(KH) 

^l^KKB)xWSTART*PPOP(KB) 

OCIN(KB) xClN(KH) 

OOPN(KB) aClM(KB) /OP 
CTOT (KH)xw(KD-OOFN(KB) 
t-ADJ (KA) xp (KA) ♦WADJIN 
WADJ(KB) sW (KR) ♦WADJIN 


TNVPPT COVAR MATRIX AND CALC VOLUME 
CALL nMINV(SO*DUM*0SG,VOLrN(KA) ) 

CALI. ()MT(>)V(TAU.DUM,DrAU.VOLIN(KRn 

IF(V0LTN(KA) ,LF.O..OR.VOLIM(KB) .LF.O.) PRINT 65”?*KL#KA*KB* 

I VOI.IN(KL) fVOLlN(KA) *V0LIN(KR) 

format ( *nVO)UMF FRROR IN SPLIT: CLASSESt VOLUMES* 1 315* 3E 1 0.?) 
WOl IN(KA) X aHS(VOLIN(KA) )*.R75€.S10763E-P6*(6.2fl3j853()7 **MO 
VOLIN(KR) X aBS(VOLIN(KB) )*,fi7S65l07^3E-?6*(6,?fl3185307)***MO 
VOl.PKKA) X SORT (VOLIN(KA) ) 

VOLRT(KH) X S0PT(V0LIN(KB) ) 

DCON(KA) xOOCON 
nCON(KM) xODCON 
LOCxO 


SFT IJP AU THE ARRAYS A^fD VECTORS FOR NEW CLUSTER 
00 ?I0 1x1, ,<0 
SKFW (KA+.I ) xO. 

SKFW (KP^I ) =0. 

SOM(KA*I) xi«sTART*(SUM( l4KL)/W(KL) ♦UM*R(I) ) 
SUM(KH+n xwSTART*(SUM(i*KL)/W(KL)-6P*R(I) ) 
OSOM(KA*1 ) sSUM (KA* I ) 

OS0M(Kp4l) sSUM(KB*I) 
no ?10 Jsl,T 

LOC IS A local IMDfX WITHIN TRIANGULAR ARRAYS 
LOrxLOC*! 

VWTN(KA >LOC) =SC ( I * J) /WSTART 
VWTN(KP + LOC) sTA J(I*J)/WSTAPT 
KU°T (KA^LOC) =n, 

KURT (KR*L0C) =0, 

0VAP(KA*LOC) xOSG( I* J)*WSTART 
?1 0 nvAP (KR^LOC) =niAU( I f J) *WSTART 


SPL0A750 

SPL0A760 

SPL04770 

SPL04780 

SPL04790 

SPLOASOO 

SPL04R10 

SPLQ4BE0 

SPL04830 

SPL04840 

SPL04BS0 

SPLn4860 

SPL04870 

SPL04880 

SPL04890 

SPL04900 

SPL04910 

SPL04920 

SPL04930 

SPL04940 

SPL04950 

SPL049R0 

SPL04970 

SPL049B0 

SPL04990 

SPLOSOno 

SPL05010 

SPL0S020 

SPL0S030 

SPL05040 

SPL050SO 

SPL05040 

SPL0S070 

SPL0S080 

SPLOS090 

SPLOSlOO 

SPLOSISO 

SPL0S120 

SPLosno 

SPL05140 

SPLOSISO 

SPLOS160 

SPL0S170 

SPLOSIBO 

5PL05190 

SPL05200 

SPL05210 

SPL05220 

SPL0S230 

SPL0S240 

SPL05250 

SPL0S260 

SPL05270 

SPL05280 

SPL05290 

SPL05300 

5PL0S3in 

SPL05320 

SPL05330 

SPL05340 

SPL053S0 

SPL0S360 

SPL05370 

SPL0S380 

SPL05390 

SPL05400 

SPL054J0 

SPL05420 

SPL05430 

SPLOS440 

SPL054S0 

SPLOS4HO 

SPL05470 

SPL0S4R0 

SPL0B4V0 

SPL05BOO 

SPLOBBIO 

SRLOB520 

SPL0BB30 
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SPLIT 


FOPTPAN 4 


^JOFLIM a 0 

PFTljRN 

FNO 


SPL05540 

SPL05550 

SPL05S60 



IS 
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PTUFJ SOMTX FORTRAN A 


•nURROUTIMF S0MTX(SQ«AM) 

RFAL SQ«AM 

Sy2S2^JA'^^«l*?A'^OS,MATRlX AM FROM TRIANGULAR FORM AND MARES 
AN MQ#MO square symmetric matrix in SOfOIM MO»MO). 

COMMON /MISC/ MQ»MM«LR«LVfNINCLS»MXARfWTtNIT*KROOT«ERS«OELTf 


MON /MISC/ MQ»MM«LR«LVfNINCLS»MXARfWTtNIT«KROOT«ERS«OELTf 
AMQ.OOCONtXOVFLOiXyNFLQtWADJlNtELlMTHvSEPTHfVFACfAMMtSBLTH* 
INnxVLfMFAC«NPTSO«FORATH«SPMVTH«DWFAC«SRACTMtAMOFACt 
AMOMlN,AMnMAX,AM0PATfV0LLIMtBIASfPJ0IN»VRJ0INfWSlM«W0ELSM« 
HETTER*MOOFtCORLEN*SPCOR 


niMFNSTON AM(A75) 

l.OC*« 

t*»* 0*0 

00 U Ixl,MO 
IJxl 

no 10 J*l*l 

LOCsLOC*! 

S0( IJlxAM(LOC) 
SC(I»*0*J)sAM(L0C) 

TMOsIMO>MQ 

RETURN 

FNO 


AM(A75) «SQ(900) 


SQMOOOlO 

SQMOOOPO 

soNoooso 

SQM00040 

SQMOOOSO 

SOMOOOAO 

SQM00070 

SQMOOnRO 

SOM00090 

soMOOion 

SOMOOilO 

SQM001?0 

soMoono 

SQM00140 

SOMOOISO 

SOM00160 

SQM00170 

SOMOOIBO 

SOM00190 

SOMOOPOO 

SQM00210 

SOMOO?aO 

SOM00P30 

SQM00240 


( 

( 

( 
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'.TATIS A 


«UHP0UTINF STATl5(KR0TIN*PVtSUMtSKEW*KURT*0SUM*0VA») 
eilrtP(»SF 

M> TAkF Fach input point and classify it (ON A FRACTIONAL* 
peudAHTLlSTIC RASIS.) 

(?) UPOATFS THE VARIOUS STATISTICAL PARAMFTER5 ASSOCIATED WITH THE 

calls^a&jst'^Io^cmeck to see if any of these classes are 

POTENTIALLY TWO ANC REFER THOSE TO THF ROUTINE • SPLIT* 
INTEOFP H'IFSIZ * RUFCNT 

T«l< PPOORAM TAKES EACH INPUT POINT AND CLASSIFIES IT 


(ON A FRACTIONAL* PR08ABJI ISTIC BASIS). IT THEN 
UPDATES THF VARIOUS STAT2STICAL PARAMETERS ASSOCIATED 
WITH THE CLASSES INDICATED AND CHECKS TO SEE IF 
ANY OF THESE CLASSES IS POTENTIALLY TWO. THOSE WHICH 



25) ) 


rOVMON/CLUS/ JUNK (12) »NARL .NTOP.NTBSZM. NWANT ♦ L INK ( 14000) 
n IMF NS TOW MXAHf^l ) .U»(3) .LV(3) 

FUilIVA(,KwCr (LP(l) .LVRIN) • (LR(2) .LKURT) . 

I (LHM) .LOVAH) ♦ (LV( 1) .L5UM) . (LV<?) .LSKEW) . (LV(3) .LOSUM) 

COMMON /Misr/ HO. MM ,L« *LV. NINCLS. MX AR.WT TNT T. KROOT.EPS. DELT. 

1 AHQ.ooCON.XOVELO.XIINKLO.WAOJIN.ELIMTH.SEPTH.VEAC.AMH.SHLTM. 
jNf'XVL.WF AC.NPTSO.PORATH.SPMVTH.DWFAC.liWArTM.AMOEAC. 

AMOMf N.AmOMax.AMOPAT. VOLLIM, BIAS. P JOIN. VR JOIN. WSIM.WQELSM. 

A HETTERfHOOF .C0RLEN.5PC0R 

riMtNMON PAfCFL (?) .MACCEL (2) .VACCEU?) 

COMMON /STRAP/WAlT.CONLV.SKHND.SKCHl.TRRNn.TRCHI,URKHMD.URKCHI. 


1 


PACCEL . haCCFL « VACCEL 


r 

r-*(\ 

r 

c 

r 


uqy 

r 


COMMON/CLUSTR/ IhFGIN.TOTWPD.CLSNAM. IPT.NOFLO. SYM(F»l) , 

1 LNCAT. PRNT(a) » KLBC . PRIME. PROUT. TOTPIX. 

p pceam! .huepix.puftot.nhufsd.noump.lpueo 

J. MAXHF. area. NtatOS. NWURS. NPTS* LPUF. TOI.NOCYCL 

TNTFOEP TOTwro.SYM.PPNT. PRIME .PROUT .TOTPTX.SCPAM l . HUFPIX .HUFTOT 
1 .CLSNAM 

common /RANO/NX .nxa.nxo 

M/^F »*» I 

weolo^^ ZFAr,70.?0S 

REAL SUH( 1 ) .SKFW( 1 ) .KURT n ) .OSUM( 1) .nVAR( 1 ) 
niMti'jSIUN RFl.OO) . COVECOO) . RV (MO.flUF p IX ) 
f*ATA MOimTF.AMONTF.PLIM/3.3...1/ 

mamtf CHF.CN I lK. RATIO 1/3 OF THE TIME. Fl,lM. WHEN PROP. LT /.I 

tntfcfr uisr 
XP(OIST) =tx<-M-.S*niST) 

HERE aHOVC ,,f)fcT IS THE SQUARE ROOT OF THE COVARIANCE 
f'ATRIX, AND EEAC IS A POWER OF PI. 
krotskrot In 
f'lPTSO = 0 
MIT r NOCVCt 
WOITK (J.997<S) NOCYCIL 
A FORMAT ( »NOCYCL=* . TB) 


STAaOOlO 

STA00020 

STA00030 

STA00040 

STAOOOSO 

STA0006n 

STA0007O 

STAOOORO 

STA00090 

STAOOinO 

STAOOllO 

STAOOjpn 

STA0nl30 

STAOOIAO 

STAOOISO 

STA00160 

STA00170 

staooipo 

STAOOIRO 

STAn0200 

STA00210 

STA00220 

STA00230 

STA00240 

STA002S0 

STAn02HO 

STA00270 

.STA002B0 

STAO02PO 

STA003n0 

STA00310 

STA003PO 

STAO033O 

STA00340 

STA00350 

STA00360 

STA00370 

STA003R0 

STAn03R0 

STA00400 

STA00410 

STA00420 

STA00430 

STA00440 

ST4004Sn 

STA004F>0 

STA00470 

STA004rt0 

STA00490 

STA00500 

STA00510 

STA00520 

STA00530 

STA00540 

STAOnSSO 

STA00SE.0 

5TA00S70 

STA005B0 

STA005RO 

STA00600 

STAOOBIO 

5TA00620 

STA00630 

STA00640 

STA006SO 

STA00660 

STA00670 

STA006R0 

STAooepn 

STA007fi0 

STA00710 

STAO07P0 

STA00730 

STA00740 

STA007S0 

STA007G0 

STA00770 

STA(I0780 

STA0079n 
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c 


PTI.F: ST«TIS FOPTRAN /I 

RM0*.6^6666A6667*AH0 
KL « LSUBS(KPOT» 


C 

C 


FL«0 

ITFP « 
TTFR I 


••••• WFAO AND PROCESS DATA NIT TIMES 

0 

ITER ♦ 1 

READ I BUFFER OF SCRAMBLEO DATA ••• 


r 

r 

r 

r 


Kj » I.FNGTH OF ONE VECTOR 
PUFSI/ s rtOFPIK * wo 
MRUFS ■ TOTMPO/PUFSI? 

LRIIF » MOD( TOTWWn • RUFSI7 ) 

TFI LBUF „GT, 0 ) NHUFS m NBUFS ♦ 1 

data on fast storage 

INAOOR * SCPAMl 
RtiFCNT s 0 

TOTWpn a NO. I^OKDS IN ORIGINAL OATA ON DRUM 
MO a LFNGTM of ONF VECTOR 
TOTRIX = TOTWRO/FQ 

SO «OFCNT s GUFCNT ♦ 1 

NWOHOS = HUFSIZ 

TF < LRUF ,GT. 0 .AND, HUFCNT ,EO. NrtUFS ) NWOROS « L8UF 
COLL PRf Af) (INAOUR* PV* NWORDS* ISTAT) 


IF( ISTaT .GT. 0 




GO TO in 


r 

r 

c; 

r 

r 

r 

r 

r 


TH80DR s iNAOnw ♦ NWOROS 
NRTXFI a N**OPnF/FO 
MOO a NPIXEI 

«*« InsPFCT Each CLASS AND PROCESS EACH OF THE DATA POINTS **♦ 
00 !?PQ 1 00a I. lino 

THIS CnnF GETS RANDOM NUMBERS. ** 

GFT NFXT POINT IN SFQUFNCE 

u.'F USE MONTF-CARLO TECHNIOUES FOR LOW PPORARILITV CL ASSES (P*PL IM) 
PCilM l»« R(;T ) =0. 


CH 

r 

C 

r 

r 

r 


CM 


IF I INDEX (KL) ,NE. 0 .AND. KL .NE. llQ) 

* RRiTf (F . 1 non) inn * index (kl) t kl 

nfsn FOOMATf "^x, •**«* WARNING FROM STATIS **** 

»TIMf, INnEX(KL) = » « IS* 3X. *, KL** • IS 

PRTRCVi(nwnT) aO, 
oPASS(KROT)sl . 

TSFC=n 

KLsLSnPS(KWOT ; 

KFATHaKRUT 

GO novN ri nsTFR tpef 

nn TF (LSMnS(KL) .FD.O) GO TO 131 

Fl^in «OTIO.>* NODE 
PCNN(KL ) sO. 

PRTRCM(KL) =0, 

KF ATHaKL 
KL sLSlIPSlKL) 

GO TO 1 30 
4 M GE * * * 4 

CALC IINWLIGHTEO NORMALIZED VECTOR REL 
WIJSF a CURRENT WEIGHT 
ni TF ( INOEX (KL) .LF.O) GO TO 133 

USE NEW weights and MEANS IF AOJUST HAS BEEN CALLED 
CALL CDREC:T{PFL*PV(1*I00) *W(KL) *SUM(KL^l)) 

WUSFsW (KL) 

PKnP(KL)=CIN(KL)/(W(KFATH)-CTOT(KL) ) 

GO TO 134 

4,ij 

133 CALL CORECT(RFI ♦PV(l*IOO)*OW(KL)*OS(JM(KL4l>) 


ON THE 2X* IS* 
) 


STAOOBOO 

STAOOaiO 

stAooa2o 

stAooaao 

STA00B4A 

STAOOeSO 

STA00860 

STA00870 

STAOOBBO 

STAOAeSO 

STA00900 

STA00910 

STA009FO 

STA00930 

STA00940 

STA00950 

SIA00960 

STA0097n 

STA009B0 

STA00990 


STAG 

STAO 

STAO 

STAO, 

STAOl 

STAO 

STAO 

STAO 

STAO 

STAO 

STAO 

STAO 


STA0I1?0 


STAO. 

STAOl 

STAO 


000 

010 

020 

030 

040 

OSO 

OAO 

070 

OBO 

090 

100 

no 


130 

140 

ISO 


STA01160 
STA01170 
STAOl 180 
STA01190 
STA01200 
STA01210 
STA01220 
STA01230 
STA01240 
STA01250 
STA012G0 
STA01270 
STA01280 
STA012Q0 
STA01300 
STA01310 
STA01320 
STA01330 
STA01340 
STA0J3S0 
STAOl jf»0 
STA01370 
STA013B0 
STAO13P0 
STA01400 
STA01410 
STA01420 
STA01430 
STA01440 
STA0I4S0 
STA01460 
5TA01470 
STA01480 
STA01490 
STA01500 
STA01510 
STA01520 
STA01S30 
STA01540 
STAOISSO 
STAOISGO 
STA01570 
STA01580 
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ftif: statis FOPr«*N a 


«i>USEbOW(KU 

r»iSSt»‘L>«nOTS<i(f'eL*VRlNCKL4l) >*WUSE 
ttOISS ■ 01$S(KU ♦ DCON(KC) 

tr I ALic I un f ce I i c. t aa i nn ta e<si 


iPCUM(KU/PRIRCM|KU 


IFIAHSIw()!S<^) .LF. lOO,) so TO 531 
PCOND(KU« 0 . 
r,o TO no 
Sll CONTINUE 
V * 

XTFMP ■ EXP<Y» 

PCONrMKL)*XTFMP/VOLPT(KL) 

n« TF(LSUP5(KU .NF.O) PCUMIKL ) «PCUM (KU /PPIPCM |KU 
SPMSf «5PFAC (KL ) /SPCOP 
IF(SPHSF.Or.^(UNFLU) 60 TO ?31 
P«.T (KU sHWOP (KL ) *Pf ONO (KL) 

5FT Kl. * LAST flOOF IN STRING 
60 TO PIS 

?M IF (Sft'SK.LT.TOVFLO) SO TO ?3? 

PST (KU sPHOP (KL ) *PCUM (KL) 

60 TO P.IS 
\? rONTiNMF 

7Z»f XP(SPUSF) 

PST ( KL ) sPPOP ( KL ) * ( PCONO ( KL ) ♦ Z Z*PCUM (KL))/(1.*Z7) 
PIO PCUP(KFftTH) sPCt«M(KFATH) ♦PST(KL) 

P9TPCM(KFATH)s:PPIRrM(KFATH) ♦PROP(KL) 

I KL»LINK(KL) 

Tl- (KL) 130*l4C»,no 
60 UP THFF 
)4P KLbKFATH 

KFATHsLSUPFR(KL) 

!)• (KL.NF.KPOT) 60 TO 131 

WF NOW HAVE the RFLFVANT CLASSES ANO THEIR PR08ARIL 


THEIR PROBABILITIES AVAILABLE. 


r MFXT we bake TBF appropriate INDIVIDUAL FIRST-OROER STATISTICS AOJ. 
no rOMTTNUF 

RCUm(KP 0T ) sPrU'^(KROT) /RRIRCM(KROT) 

IF (PCUP(KPOn .NF.O.) 60 TO ISl 
rHA^r.F*** S 

PRINT SSS. lOO.W (KROT) * (PV(KPP. 100) .KPRsl .MO) 

*,Se; format ( •i)**StiSPECTFP RAO DATA PO INT— ST AT IS** lOOx i . 1 5 . » ROOT*. 

1 Fln.^/H)(. *VFCTOR». (5F12.6) ) 

{•.() TO 399 
IS) roNTlNUf 

KL=LS)iPS(HROT) 

KFATHxKPOT 

i*((KPOT) sK (K'-’OT) ♦PPASS(KPOT) 

NPTSOsMPTSO*) 

KaOJsO 

n3 roMijNUF 

TF(PST (KL) .KJ.O.) 60 TO 299 
PPASSK xPPASS (KFATH) 

PsPST (KL)/(RCI)M(KFATH)*PRIRCM(KFATH) ) *PPASSK 
r KLOsKL 

132 IF(P.6F.PLI'^)Sn TO 140 

IP (Oisr (MONTE) .Nt. 1)60 TO 299 
PPASSK=PPASSK*AMONTE 
PsP*AMONTF 
60 TO 13? 
rMA^'O!*** N 

140 IF( I<v F< (KL) .LE.O) 60 TO 143 

tail LOhECT (PFL.PVd# IOO) ♦ W (KL > fSOM (KU 1 ) ) 
r,o TO )44 
fv-(Ar'6F**» 6.S 

143 r.ML f 1PFCT(PFL.PV(1.IDO).OW(KL)*OSUM(KL»1)) 

164 WO=W (KU 

rF(P.OT,1.00l .OW.P.LT.n. ) PRINT 672. INDEX (KU .KL* INDEX (KFATH) « 

1 KFATH. lOO.P.RST (KU .PCUM(KFATH) .PPIRCM (KFATH) .PPASSK. 

2 PMOP(rtU 

FORMAT (• PPOH FRPOP(STATIS) ;* »2( 13*17) . 16. » Ps«.t9.4* 

} 2ny, •FP(>Mt,7F9,4) 

IF (P, 61. 1.1) Px.Ol 
-i(KL)='.»(KL) ♦P 
ALOW=P/w(KL) 

ALPHAsW(.>*ALOW 

r ufPF WF adjust SPFAC ANO PORAT. 

Tf (ISOMS (KL) .ED. 0) 60 TO 611 

7 :i= ( P C 1 1 M ( K L ) -PC ON 0< K U )/( PCUM ( K L )♦ P C own ( KU ♦ 1 . E - 3 7 ) 

■/0SsZG*7W 

pUPAT (KL) =P0PAT (KL) ♦P*ZQS 


STA01590 
STA01600 
STAOIGIO 
StA0162n 
STAO 630 
STAO 640 
STAO 6S0 
STA01660 
STA01670 
STAO 6R0 
STAO 690 
STA01700 
STA01710 
STA01720 
STA01730 
STA01740 
STA017S0 
STA01760 
STA01770 
STA017H0 
STA01790 
STAOIROO 
STA01810 
STA01H20 
STA01H30 
STA01640 
STA018S0 
STA01B60 
STA01670 
STA018RC 
5TA01B90 
STA01900 
STA01910 
STA01920 
STA01V30 
STA01940 
STA01950 
STA01960 
STA01970 
STA01960 
STA01990 
STA02000 
STA0201G 
STA02020 
STA02030 
STA02040 
STA020S0 
STA02060 
5TA02070 
STA02060 
STA02090 
STA02100 
STA02110 
STA02120 
STA02130 
STA02140 
STA021S0 
STA02160 
STA02170 
STA021RO 
5TA02190 
STA02200 
STA02210 
STA02220 
ST A 02230 
STA02240 
STA022S0 
STA02260 
STA02270 
STA02280 
STA02290 
STA02300 
STA02310 
STA02320 
STA02330 
STA02340 
STA023S0 
STA02360 
STA02370 
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FIIF* STATIS FOPTHAN A 


} 


SPFAC (KL) «SPFAC (Kl. ) ♦P«ZO* <?. ♦ZQS/ < 1 .S-.P^ZOS) ) 
I^VinDfIjku.LT.O) 60 TO 1«P 


VOL !N (KL ) ■ VOLIN (KL » * U . ♦ ALOW*OISS (KL ) ) 
VOLPT(KU«.-^*(VOLPT(KL)*VOL1N(KL)/v5lPT(KL>> . ^ 
r HEPF KE KEEP VOLPT NEAR SQRT(VOlTN) BY NEWTON* S METHOD* 

7FACb.S/(1./AL0W«.S) 

nCnN(KU»DC0N(KL>-8M0#ZFAC**(3.*ZFAC*ZFACJ 
f TMF ABOVE APPPOXiMATlOOi TO THE LOG IS COPPFCTEO FOR IN ADJUST 
f PWOPOWTION CALCULATION* 

icto PP0PL«PP0P(KLJ /PPIRCH(KFATH) 

IF (PP0PL*('>T.*P99PP) 60 TO 192 
TF(P.6E.PPASSK#PP0PL> 60 TO 190 
CTOT(KLJ»f.TOT(KL) ♦P/PROPL 
60 TO 191 

19? riN(KU»ClN(KL) ♦!. 

60 TO 1 91 

ion CT0T{KU*CT0T(KL)*(PPASSK-P)/(1.-PP0PU _ 

CIN(KL)*CIN(KL)*( P-PP ASSK •PROPL 1/(1 . -PPOPL ) 

CONTINUE 

**• 7 

CALL VPV(SUB(Kl>n •P#PV(1*ID0) ) 

IF (TN(.)FK(KL) .LF.O) 60 TO 163 
CALL VMTV (COVFr.VPIN(KL^l) #RFL) 

COFI X -ALPHA/n.* ALOV*0ISS(KL) > 

CALL NPVS(VPIN(Kl>n tCOFItCOVEC) 

60 TO lf*A 

161 call MPVS(UVA«(KL ♦! ) tALPHAtBEU 
1^4 CONTINUE 

0I«.S(KL) contains the GAUSSIAN DISTANCE OF THF POINT FROM THE 
V»IN IS THF INVERSE COVARIANCE MATRIX (****•) OVER,** (KLl 

(THIS INTRODUCES SEVERAL SCALE FACTORS 
COVFC IS THF CONTPAVARIANT FORM OF THE RELATIVE DISTANCE REL* 


STA023A0 

STA02390 

STA02400 

STA02410 

f 1402420 
TA02410 
>TA02440 
>TA024S0 
>TA02460 
>tA02470 
STA024B0 
STA02490 
STA02S00 
STA02510 


chan 




WF 


C 

c 

r 

c 

c 

c 

r 

c 

c 

c 

r 

c 

c 

c 

c 


c 

QO«0 


c 


COVFCsVPTN*PEL 

NOW HAVE all THE LINEAR AND QUADRATIC STAT 1ST ICS* AND PROCEED 
TO CALCULATE THE APPROXIMATE 3RD AND 4TH MOMENTS FOR TESTING, 
THESE MOMENTS ARE NOT CALCLMATEO EXACTLY: THE SQUARED 
distance of a point from THE MEAN ACTUALLY SHOULD 
USF all the DATA IN CALCULAT INC* THE HEAN^AND^ 

COVARIANCE* whereas WE SUBSTITUTE THE CURRENT 
VAI.UFS INSTEAD. THUS THf. VALUES CALCULATED DEPEND 
ON THF ORDER THF POINTS ARE READ IN, 

CRITICAL. 


THIS IS NOT 


**iOISSsDISS(KL)*R 

IF <INDEA(RU .LT.O) WRITE (3*R9B0) 
FORMAT ( •W0ISS*KL=».F14.4*I6) 
call VPVISKFwtKL^l) .WDISS*RFL) 

CALL MPVS(KURT(KL*l>*WOISS*REL) 

CONT INJIF 


WDISS* INDEX (KL) 


WF 


9QHR 

?oq 


304 

mi 

10S 


STA02S40 
STA025S0 
STA02560 
STA0257C 
STA026B0 
STA02590 
STA02600 
STA02610 
STA02620 
STA02630 
STA02640 
STA026S0 
STA02660 
CLUSTERSTA02670 
(•••• NSTA02680 
STA026R0 
STA02700 
STA02710 
STA02720 
STA02730 
STA02740 
STA027S0 
STA02760 
STA02770 
STA02780 
STA02790 
STA02800 
STA02810 
STA028P0 
STA0P830 
STA02840 
STA028S0 
STAnp86(> 
STA02870 
STA02880 
STA028P0 
STA02900 
STA02910 
STAG2920 
STA02930 
STA02940 
STA029S0 
STA02960 


109 

647 


MOW adjust THE CLASS FOR LARGE-SCALE STATISTICAL EFFECTS* 

ON AN OCCASIONAL BASIS. THIS INCLUDES NOMINAL NEWTONS 
MFTHDD CORRECTIONS AND TESTING FOR THE POSSIBILITY 
OF TWO CLUSTERS (USING THE SKEW AND KURT STATISTICS).^, 

TF(W(KL) .GT. (WADJ(KL) ♦.OOOS) .OP.NPTSO.GE. IDADJ (KL) ) KAOJxKL 
TF (KL.FQ.14S. AND. W(KL) .LT. 200. S .AND. W(KL) *GT. 199.5) KADJsKL 
IF (W(KL) .GT.WAOJ(KL) ) WRITE (6*9988) INDEX (KL) *W (KL) *WADJ(KL) 

FORMAT (• STATIS KL* W (KL) * WADJ (KL) • * I8*2E 18. 1 0) 

IF (NPTSO.GE.TDAOJ(KL) ) WRITE (6*9987) INDEX (KL)* NPT50* IDADJ (KL) STA02970 

FORMAT (• STATIS NPTSO.TDADJCKL) **318) ^1*^2980 

PPASS(KI.)xP STA02990 

IF (LSUPS(KL ) .EQ.O.OR.PCUM(KL) .FO.O.) GO TO 304 §H®35?5 

Kf ATHsKL STA03010 

KLsLSU«S(KL) 

GU TO 163 5TA03030 

KLxLTMK(KL) 

tE(KL) 1S3.30S.153 51*22555 

KL=KErTH 11^22252 

KF4TH=LSUPFP(HL) 5I*922Z2 

IF (Kl .MF.KRAT) GO TO 304 STA03080 

TF (KAO J.nF. 0) CALL ADJUST (KADJ*SUM*SKEW*KUPT*OSUM*OVAP) STA03090 

TF (MO(,i{NPTSO*TOTPIX) .,NF.O.OR.MODE.EO.O) GO TO 309 5TAG3100 

NXAsMXD STA03110 

CALL RPTREE (SPOT) II^92]i2 

CALL CLDUMP(KROT) STA03130 

CONTINUE STA03140 

format ( MVLOOP IN STATIS:IDO*W(KROT) *KL*SFCTI0N»*I5*EU. 5*215 STA031S0 

1 /(1X141S)) STA03160 
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®ILPt STATIS »-0»T«AN A 


490 

?nno 


cnwTiNut: 

IF< fMJFCNT ,LT, 

NiRTTF (6f?nn0) 

^WITF (3.?0ft0) !TF« 

FOPMAK* NO OF l“~ 

I HOLD ■ PQOUT 
PPOIJT * ? 

CALL PRTMFE (KPOT) 

CALL CLDUMPJKPOT) 

nmfTlf * 0 

IF (ITFW .fn, NIT) NUFILE * 1 
CALL CLOSMP (NUFII F) 
opnitT « IHOI 0 

IF < ITEP .I T. KIT) 60 TO I 

PFTIIPN 

FNO 


NPUFS ) GO TO 50 

ITER 

TFP 

TEPATIONS THROUGH ALL THE DATA ■ •• 14 ) 


STA 03170 

$TA 0 | 1 P 0 

staoIIro 

STA 03200 

STA 03210 

t TA 03?20 
TA 03230 
STA 03240 
STA 03260 
STA 03 P 40 
STA 03270 
STA 032 fl 0 
STA 03240 
STA 03300 
5 TA 03310 
STA 03320 
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V 


Fltr: SH«LIM FOwThAN A 


SU«»OUTINF SUWi. 


SUBLIM ELIMINATFS THE SUBCLUSTERS 

milhu 

1 BfUM 


OF THE NODE KLHEO, 





1 BORAT 

A OPRIOPIR) •OOFNCBT 
niMFNSlON VOINU75), 
EOUiVALF.NCE (LINKnUAL|NK<n 
IIVALENCF. (LINKlMitUi 


1 

2 

A 

5 

6 
7 

M 

9 


«6ENt999)t 

EQUIVALENCE. (LtNKiSU •LSURsU 
FUlItVALCNCE (LINK ( %\ f t LSUPER(29) ) • 


?:^[{SK’?i!?';i!5gaU7n 


(LINK(il) fNSTMBIl?)) , 

<L!NK(.|lj,c|N(^AM 


(LINK (3 
(LINK (3 
(LINK (3 
(LINKII 

((.ink (3 

(LINK ( ^ 
(LINK ( J 


) •OPHOBIli) ) * 
>»VOLPT(ISM 
) tnlSS(l2)) 

)*ocini!o) 


• (LlNK(3U»PCUM(26n 
(LINKO 


(LINKOUfIOADJ(?B))t 


|L,NK 


m 

M« (LINK(3l)f 
)« (LINK(3I)«P 

- )• (L!nK|.31I.P^ ^ ^ 

)«QFN(7))f (LINKOl) •6 pP! 0R(9) I • (LINK ( 31 1 •OPEN ( 
_.)*GPEF(«n. (LINK(3lifNTB(31) I 
COMHON/CLUS/ JUNK (12) «NARL tNTOP*NTBS?HtNWANTtL INK ( lAOOP) 
niMFNSlON MKAQ(31 ) •LH(3) tLV(3) 

FOUIVALFNCF (LP ( 1 ) tLVPlN) # (LR (2) tLKUPT) • 

1 (LR(3) tLOVAP) • (LV(1) tLSUM) , (LV(2) tLSKEK) « (LV(3) tLOSUH) 


•CTOTC23I ♦ 
WA0J(2p) ) 
.OK(17V) # 

. .OCON(IA)) 

I !:??«§§)?!: 
»6pR!0R(9) ) • 




(LlfcKV3l?Jv6LfA?U)), 

• (LINX(31)»PORAT(t3) 
f (LlNKOl) •PSTMIM • 
(LINKI3l)*VRjN(7))t 
(LINK(31)«0DEN(8))« 


) t 


COMMON /MISC/ MQtMMfLRtLVfNINCLStMXAPfWTINITfKROOTiEPStOELT* 

1 AMQ.unCONtXOVFLOfXUNFLOfWADJlNtELlMTHfSEPTHtVFACf AMHfSBLTHt 
? INr»)fVL*WFAC*NRTS0*PQWATHtSPHVTHtnHFACi6PACTHf AMOFACt 
3 AMOMlN«AMOMAVtAMORAT«VOLLlH*HlAS«PJOiN«VPJOIN*WSIM«KOELSMt 

A PFTTgK*MOOF*CO»LFN,SPCOR 

COMMON /STP««/WAITfCONLV»SKBNOtSKCHI#TPRND.TPCHIfUPK«ND*URKCHI* 
1 PACCFl (?) .MACCEl (?) #VACCEL(2) 

«»W(MT 7) 3* IMOFX (Kl HEO) .SRPAC (KLHED) tSB^TH 


1 1 


714 


«^ORNaT (/f* ***SUfi FLIM ».I3.» SRL ITTING* *F12,5* • 
wPTTF (1.713) TN()FK(KLMFD) .SPFAC(KLHFn) *S8LTH 
KL»KLHf n 
K»LSUBS(KL) 

KUKrLTNK(K) 

PRINT 714 *INnFX(K) 

CALL TRFWKK (K.NINCLS) 

FORMAT (US) 

KsKNK 

TF(K.NP.O) GO TO 11 
LSOHS(KL) »0 
SPFAC (KL) s-RRRR. 

PO»AT <KL) «(). 

CALL PRTWFe (KLHfn) 

RFTURf' 

FNO 


♦••F12.S) 


t UBOOOlO 
UB00020 

lilSISiS 

SUB00050 

SUBOOOfeO 

SUB00070 

SUB00080 

SUB00090 

sueoulpo 
suBoono 
SUB00120 
) tsuBoono 
SUBOOIAO 
SUBOoisO 
SUB00180 
SUB00170 
SUBOOIRO 
SU600190 
SUB00200 

luioSl^o 

SUB00230 

SUB002A0 

SUB002SO 

SUH00260 

SUH00270 

SUB0O2P0 

SUR00290 

SU80030P 

SUR00310 

SUB00320 

SU800330 

SUB003A0 

SUB00300 

SUB00360 

SUB00370 

SUB003A0 

Sf«B00390 

SJ800A00 

SUBOOAIO 

SUB00A20 

SUB00A30 

SUBOOAAO 

SU800AS0 

SUBOOAAO 

SU800470 

SUBOOAAO 

SUBOOARO 

SUB00500 

SUHUOSIO 
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pfir: S0PSu»» K)»TWAN A 


1 

) 1 n 


rO^KTlON SUPSUM(A«TtN) 
OlMFNSfON A<N> 

!F U.LF..?) GO TO 110 
TAU UWOl (A*l«ItN) 

no 100 J«1*TM? 

A(JP1)bA(J) ♦ A(JPl) 

If (ABSIACJPI) I .LF.A8S(A(JJ) ) ) 
CaI L OPOl (A*JP1 • I «N) 
fONTlWOf 

n»i-i 

<;uPsi»M«A(n ♦ A(in 
«FTUP^^ 
f NO 


GO TO 100 


SUPOOOlO 

SUP000|0 

? UP00030 
UP00040 
SUPOOOSO 
SUP00060 
SUP00070 
$UP000S0 
SUPOOOPO 
SUPOOlOO 

supooilo 

SUPOOlOO 

SUP00130 

SUP00140 

SUPOOlSO 

SUPOOlOO 
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fE^T 




«no40 

r 

1 004S 


LTESTCn 


StiWROUTINF TEST 
rOMMOf^ /T^STC»</ 

PfAL PIX 

niMCNstON P!K (U« 
no !00AS |«l*NWOPOS 
fVAUlF ■ ^‘IX (1) 

IF (1 VALUE .LT, I .OP 
I TPStllVALUF) 

00 TO 1004S 
LTFST ( ino) ■ LTFSTI 100) 


(PIX» NWOPOS.LTESTtl.SUM) 

ITESTUOO) .NTFST(l©O.^tMTESTn 0 O) *lSUHtMSUM*NSUM 


1 .OP. IVALUF • 
LTEST(IVALUE) ♦ I 


.6T* 90) 60 TO 10040 


♦ 1 


LSUH « LSUM * IVALUE 

pftupn 

FNO 


TESOOOlO 

TESOOOPO 

TES 00030 

TES 00040 

TESOOOSO 

TESOOOAO 

TES 00070 

TESOOOPO 

TESOOOOO 

TEsnoloo 

TESOOllO 

tES 00 l 20 

TEsoono 

TES 00140 


( 

( 

( 

( 

< 

1 

K 
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T» 


FORTMAN A 


FUMCTION TRCAM«AMFT) 

CAtCIILATFS THt TRACF OF THE MATRIX 


AM RELATIVE TO THE METRIC 


WTIHlT*KROOT*EP5*Oj 
AHO*OUCOM«XOVFLO«XUHELO*HAOJlN*ELlMTH«SERTH«VFACf AMMf! 
INOXVL*WFAC*NPT50.PORATH#SPMVTM*OHFACtpRACTM#AMOFACf^^,. 
AMOMlNvAMOPAXf AMOPATtVOLLlMfBlASfPiJIOlHtVPJOINvMSIMfWOELSMt 


COMMON /MlSr/ MOfMM*LR«LVtNINCLS«MXARf 
\ AMO*OOCOM*XOVFLO*XUNF ‘ “ " 

? 

4 PETTE«*MOf>F*CORLEN*SPCOR 

integer MXARnn . lro) #lvo> 


tTMf 


PEAL AM(47S>*AMET(475J 
PeAL*R ORTR 
f)PTR« AMn>*AMET(l)*.5 
no 10 I *2. MM 

10 nPTR^DPTR*AM(I)#4METCI) 
nRTM«nPTR*DPTR 

WE MUST noURLE THE OFFDIAGONAL 
NOW SUBOPTRACT DIAGONALS, 
no IS T« 2 »Mr.t 
MXAsMXAHd) 

} S DPTR*DPrR-AM (MX A4 I ) •AMFT (MXA« I ) 

TR s DPTR 

RFTURN 

PMO 


TERMS (SEF COMMENT IN FUNCTION 


TR 

AMETR 

IS 

TR 

IS 

TR 
TR 
7R 
TR 
TR 
TR 
TR 
TR 
TR 
DTR 
TR 
TR 

Ig 

TR 
TR 
TR 


00010 

00020 

00030 

00040 

00050 

OOOAO 

00070 

OOORO 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

OOIRO 

00190 

00200 

00210 

00220 

00230 

00240 
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FTLP« T»r»E|f F'JftrttAN A 


r 

c 

r 


iwrwtt n'Lf»t.O*Ltwi 

ISI5R?*t8S? PMfegf’fo 

) JUSTED. 


KLHED.ETC.f ARE 


SURROUTINE TPFREEIKLh€0*LEN) 

THIS POUTINE F«~"' ' 

THE USER ROUT I 

RPOPERLV ADJ 

niMENStON NTfMT2» 

IHOEiU??) «LSUBf>l30) .LSUPCRiaSI .IDADJlZBlsNSyM • 

1 •W^^'^‘?5)*CTN(24)#CT0T<23).PR0PC22>#iPFACT2nA.. 

2 WADJI20) tW(19) *OPPOP(i6l*5w(i7) .VOLlNflA) .VOLPTUSI «DC6N(|A)« 

3 PORAT<13) »OISS(12) •PPASSf ^ 2) • PSTU 1 > •OCINCIO) .PCONDIT) • 

4 OPRIOpNI tODENlH) 

niHERSION VPIN(47S> .OEM (999) f6REF(999) • ALIHKll ) 

FOUIVALFNCE (LINK (1 ) « ALINK I) ) ) • (LINK ( 31 I • t NDEX (27) ) 

~ iVALENCE (LINKnn .LSUBSOO) ) 

[valence (LINK ( 31 f .LSUPEP (29) I • (LINK (31 ) t I0ADJ(2B) ) « 

12) )t (LINKUDtPCUNJPA) ) f (LINK(3l 


FQU 

E(JM 


(L 

(L 

(L 

(L 

(L 

(L 

(L 

(L 


NK(31).NSYMH(12))t (LINKI31 ) tPCUN (26) ) t (LINK (31) tPRIRCM(25) 
NKOl) •CIN(?4)>. (LINK(31).CTOT(23) ) f (LINK (31) «PROP(22) ) • 
NK01).SPFAC(21)). (LINK(31)tWA0J(20))« (LINK (31 ) iW( 19) ) t 


I ltWAUJIjfOII* ILltVR<41ltVI|y| I t 
K(3I) *PST(11) ) # 


NK( in .OPPOPdAM , ^ 

NK(3p .VOLPTdSn . (LtNK(3p tOCONIU) ) • (LINK . 

NKOl) .niSSd?))* (LINK(31) tPPASS(i2n . (LINK (31) *PST ( 1 1 ) ) 
NK(ll) .OCINdO)). (LINK(31) fPCONO(7) ) f (LINK(31) tVRINd) ) t 
NK(3D tPFN(7) )t (LlNK(3y fOPRIOR(9) ) f (LINK (31 ) tOOEN(B) ) t 


(LIMKOn .GPEF(a) )♦ (LINK(31).NTe(3i)) . . 

COMMON/CLUS/ junk (12) •NARL.NT0P.NTB§7M.NRANT*LINK (14000) 
DIMENSION MXAR(31)*LP(3)#LV(3) 

FOUIVALENCE (LPd ) .LV(|5 n) t (LP(?) tLKURT) t 

I (LP(3) .LUVAP) f (LV(n.LSUH) t (LV(2) .LSKEW) . (LV(3) tLOSUH) 


common /Misr/ M0,mm.LR*LV.NINCLS.MXAR*RTINIT.KR00T.EPS*DELT. 

1 AMO.ODCON.XOVFLOtXUNFLO.RAOJINtELIMTH.SEPTH.VFACvAMNtSBLtHt 
? INDXVL.WFAC.NPTSO.PQRATH.SPMVTH.DWFACsGRACTMjAMOFACf 

3 AMOMlN.AMOMAX.AMOPAfiVOLLlM.BlAS.PJOfN.VPJOlNfRSIM.NDELSM. 

4 pfttek.modf.corlen.spcop 


1 1 
10 


13 

09 


common /STPAP/»(AIT.C0NLV*SKRN0*SKCHI»TRRND*TPCMI.URKBND.URKCHI« 
1 PACCEL(?) .MACCFL(2) .VACCEL(2) 

IF(KLHFO.FO.O) RETURN 
KLsKl.HFO 
I KLOaKL 
KLsLSURS(KL) 

TF(KL.NF.n) 00 TO 9 
KLsKLO 

KLFsLSI (PER (KU 
KLKsLINK (KL) 

CALL FRfe (KL.LFN) 

IF (KL.Fy.KLMFO) bO TO 99 
KL*KL»^ 

IF (KU9,13,o 
KLsKLF 
00 TO 1 \ 

KLHEOsO 

RETURN 

FNO 


TRFOOOlO 
TRF00020 
TRF00030 
TRF0Q040 
TRFOOOSO 
TRF00060 
TRF00070 
TRFOOOBO 
TRF00090 
TRFOOlOO 
TRFOOllO 
TRF00120 
TRF00130 
TRF0Q140 
IftRFOOlsO 
TRFOoUo 
TRF00I70 
IRFOOlBO 
t TRFOOiPO 
TRF00200 

S RF00210 
RF00220 
RF00230 
RF00240 
TRF002SO 
TRF00200 
TRF00270 
TRFOOZftO 
TRF00290 
TRF00300 
TRF00310 
TRF00320 
TRF00330 

TRF00360 
TRF00370 
VRF003R0 
TRF00390 
TRF30400 
TRP 00410 
TRF00420 
TRF00430 
TRF00440 
TRF00450 
TWF00460 
THF00470 
TRF00480 
TRF00490 
TRF00500 
TRF00510 
TRF00520 
TRF00510 
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ftlf: T»*TnMx a 


SURPOi/TiNE TPtOMX (NtNMfAtOfB) 
»FAL*R YTEMPf A{WM,NM). D(NM)t B(NM) 
noilHLF. PRECISION SUMtXTEHP 
no 10 T « UN 
I) 

S%«1S 
.H«N 


10 

U(f ) 

B 

A(i 


IF (N 

-2) 

60 

15 

no 

46 

K X 


KK X 

K-l 



SUM B 

A(K- 


no 20 

J 

X K 

3 ft 

SUM 

B SUM 


/ B(K-2 ) ) ♦ 0.5D0) 


_ ♦ A(J,K-?) * A(JfK-2) 

XTENP s DSORT(SOM) 

YTEMP s XTFNP 

R(K-?) s OSTONIYTFMP. -A(K-1«K-21) 

IF (H(K-?)) 24«AA«24 

34 6(k-UK-?) b r)50PT(0.500 * 0ABS(A(K-UK-2) 

HFNOM s • A(K-UK-2) *R(K-2) 

no 30 I s k,n 

30 A(I#F-P) X A (UK-?) /OENON 

SfAL = 0. 

37 no 36 J X KKtN 

M(.J) s 0. 

IF IJ.Fo.KK) m TO 3S0 
no 34‘^ L X KH,JJ 

14‘> R(J) s H(J) ♦ A(J,L) * A(L*K-2) 

3sn no 3s 1 . X j,(M 

3«S fl(J) r R(J) ♦ A(L*J) • A(L*K-2) 

JJ = J 

^6 SCAL s SCAL ♦ R(J) * AU*K-2) 

no 40 J X KK.N 

4ft rt(J) s H(J) - SCAL*A (J*K-2) 

no 4S n) X KK.N 
no 4S I X J.M 

4R A(L.J) X A(LfJ) - ?.* (A(L.K-2) * H(J) ♦ A(JtK-?) • B(D) 
4*^ rONTIftJUF 

DO “.0 T X U^ 

T = A(U1) 

4(1,1) X U(f) 

J s N-I 

IF (N .HU. n 00 TO FO 
P(.J*l) X H(.M 
•-D 0(1) X 7 

fMN) X A(N,M-)) 

40 R(l) s 0.0 

Of TOWN 
FMO 


TRIOOOlO 

TRI00020 

TRI00030 

TR|o0040 

trIoooso 

TRI00060 
TRI00070 
TRlOOORO 
T;T 100090 

fg !I8|?8 

TRI00120 
.00130 
00140 
OOlSO 
:00160 
[00170 
00180 
00190 
00200 
00210 
[00220 
100230 
[00240 
00250 
00260 
00270 
00280 
[00290 
00300 
00310 
100320 
[00330 
[00340 
IPI00350 
TRI00360 
[00370 
[00380 
00390 
00400 
00410 
00420 
TRI00430 
TPI00440 
TRI00450 
THI00460 


TRl 

TR 

tr: 

TR 

TR 

TR 

TR 

TR 

TR 

TR] 

TR] 

TR 

TR 

TR] 

TR 

TR] 

TR 

TR] 

TR] 

TRl 

TRl 

TR 

TRl 

tr! 

TR 

TR 

TRl 

TR 

TR] 

TRl 


ORIGINAL PAGE IS 
OP POOR QUALITY 
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FTLf * T»T**TX FORTRAN A 


r. 

r 

r. 


^URROUTINF TRfMTX (TRNSOI 
THIS gOUTINF TAKFS THE LOWE 
IT INTO SYMMETRIC MATRI 


R TRj|AN6j.E^0F SOfOIM MO*MQ) AND PUTS 


niMFNSION MXAROI) «LR(3) (LVO) 

COMMON /MISC/ MO.MM,LR«LViNINCLS»MXAR«WTINTTiKROOTfEPStOELTi 
1 Jt!S*OpCON*XOVFLOfXyNFLO*WAOJlN.ELlMTM*S|PTH*VFACiAMM#lBLTM* 
? INOXVL*WFACfNRTSO»PORATH«SPMVTHfDWFAC«6RACTMtAMOFACt 
1 AMOMlN«AMOMAX«AMORATfVOLLIMfBIAS*PJOINfVRsJOlNfWSIMtWOELSM« 
A RFTTERtMOOE«CORLEN«SPCOR 


10 


niMFNSION TP! (ATS) •S0(9001 

on in T>1«MQ 

MXsMXAP(I) 

IJsI 

no 10 j*i*i 

TWT (MX*J)*SO(I J) 

I%JbI J*MO 

RETURN 

FNO 


TRl 

TR] 

TR 

TRl 

TR] 

TR 

TR 

TR 

TR 

li 

TR 

TR, 

TR 

tr: 

tr: 

tr: 

tr: 

tr: 


00010 

00020 

00030 

OOOAO 

oooso 

00060 

00070 

oooeo 

00090 

0(100 

00110 

00120 

00130 

OOIAO 

ooiso 

00160 

00170 

00)60 

00190 

00200 


( 

( 

(, 

( 
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FU KJ OMF 


FOPTRAN A 


FUNCTION UNTFC^) 

COMMON /PANn/NV«IDUM«IOUMl 
NXsNNANO(NX) 

XNX « NX 

ituTF B XNX * W / ?1474S369. 

RFTUNN 

FNO 


UNI 00010 
UN|00020 
UNI00030 
UNI00040 
UNI00050 
UNI00060 
UNI00070 
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V.. 


ftif: vhtv 


FOPTMAN A 


>PMVTH«OWFACfORACTH«AMOFACf 


10 


1 1 

?0 


SURPOUTINF VF^TV(VA«AMET*VR) 
sets VA»AMFT*Vfi 
COMMON /MISC/ MOtMM*LR#LVtNIN( 

1 amo*oocofu*ovflo*xiinflo*maL 

? lNnxVL«WFAC«NPTS0tPQPATH«SPMVTH«DWFACfdRACTM«AM5FACf 
1 AMOMlNtAM^MAXt AMORATfVOLLIM*BIAS«PJOIN,VRJOINfWSlMfWOELSMf 
♦ kFTTEH«MODF«COPLFN«|PCOR 
MEAL VA130) •VROO) <AMF.TU7«;) 

RFAL*R SOM 
LOCA«0 

00 PO I«J*MO 
SUM«0. 

no 10 J«1.I 
LOCAaLOCA^l 

SOM»SUM* AMFT(LOCA)*VR(J) 

IF(I,FO,M(w) 60 TO 20 

l.orB*LOCA^I 
no 11 JaJSfMQ 
SI>“»SUM*amFT (LOCH) •VH < J) 

1 OCRal OCH^J 
VA(I)aSO^’ 

HP TURN 

FNO 


VMTOOOlO 

StiTlIigiS 

VMT00040 

VMT00050 

VMT00060 

VMT00070 

VMTOOOflO 

VMTOOOPO 

VMTOOlOO 

VMTOOllO 

VMT00120 

VMTOOnO 

VMT00140 

VMTOOISO 

VMTOOISO 

VMT00170 

VMTOOIRO 

VMTOOiRO 

VMT00200 

VMT00210 

VMT00220 

VMT00230 

VMT00240 


( 

( 

( 

( 
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nn 


rTLPs vpw 


rUPTPAN A 




VPVOOOlO 

VPVOOO?0 

VPV00030 

VPV00040 

VPVOOOSO 

VPV00060 

VPV00070 

VPV00080 

VPV00090 

VPVOOlOO 

vpvooi 10 

VPVOOlPO 

vpvoono 

VPV00140 


( 


( 


( 


( 


( 


( 


( 


SUPPOUTINE \/PV(VA«FAC*V8) 

PFTS VA*VA«FAC«VB 

COMMON /MISC/ MW*MMtLP#LV.NINCLStMXAR#¥TINTT.KPOOT*FPS*DELT# 

1 AMO.onCON«XOVFLO#KUNFLOtWAQJIN*ELlMTH#SFPTHtVFACtAMM.SBLTM# 
j» TN|)*VL*«f AC.MPTSO*POPATH*SNvTH*DWFACf5PACTM*AMOFAC* 

1 AMOMlN«AMOMAX«AHORATtVOLLIM*RIAStPJOIN*VPJOIN«MSIM*MOELSMf 
4 HFTTFR*MOnF*C0»LEN,SPC0R 


PF AL VA (30> .VBOO) 
nn 10 l*l*NO 
10 VA(I)sVA(T»tVB(n*FAC 
OF TURN 
FNO 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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APPENDIX C 


SAMPLE OUTPUT 
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• z 


* » 


U>C aJ 



UJ 

ezx 


1 

a 
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mt 

•» 
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< 
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A 

< A Z'M 

V 




X 



uxu ^ 




inx 

X 

?Z'X 


•-U.X 
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£ 

X y>y) 
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a u^2 

M 

X • *X«i: 
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a 


a 


2J 
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rfiiuPinewrp « ri-iaiM^ici ^ ■^.nnnn rm^vonapp 4>>ii»- ns>it.i<ia.ip^ h^o.ipsapf «»»i 



HOOT 119 rJ*»ST 1=.S 

*Cen%M«CC£h C^L) MwSPJtnL) ».i) 1 i>e«0000099iai »03 u,i'00000i>0i>ot 03 


i 


9 

M 

N 

o 

9 

e 

Ui 

<» 


»! 

mm 


• 

in 

it 

m 

r> 

K 



ID 

in 

• 

• 

• 


O 

a 


p« 

o 

O 

o 

o 


1 



lAi 

w 


e 



0^ 


e 

Al 



• 

O 



«• 

• 

• 

• 

e 

e 

o 


o 

o 


c 

e 

e 


• 

• 

• 


Q 

0 

9 


UJ 

UJ 





0 



z 

z 


4 


4 


t 

X 

X 


U (D 

u # 

U IT 


d 

9 

e 



mm 



w o 

u 00 

xi 




z « 


ON CiiJ 

© # ouiuj 

0 N 



0 ONN 

iD 


iJ >i •f) 


UJ N 


OCM OiD 


>Z*-« 


a • • f\JN 

O' • • . 9 JMD 

(0 • • 


>M 1 

-O#! ♦> 0 > 

>S 9 


ct 

CfN 00 

OKO 


O' C O 

Ornm 00 

O' ID 


• 'M J- 

• f\j 

• 0 


O 

OAi DZ 

94 


1 t 
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APPENDIX D 
UTILITY ROUTINES 



D.l MATHEMATICAL SUBROUTINES 


Subroutine Name and Calling Sequence 


AMSQ (AM,AMET) 


CORRECT (REL , PV , P , S ) 
DENCAL (KL , RATIO , OLW) 
DMINV (A,B,C,VOL) 


DOTSQ (V,AMET) 
DSQMTX(SQ,AM) 

DTRMTX*8 (TRI,SQ) 
EIGROT(LP,NM,R,E,V) 


D-1 


Description 

Calculates the trace of the 
of the square of the matrix 
AM, relative to the metric 
AMET. 

Subtracts S(I)/P from PV(I) 
to create (REL (I). 

Adjusts the denominator off- 
set and proportion of KL. 

Calculates A equal to the 
inverse of C and VOL equal 
to the determinant of C. 

B is used as temporary 
storage . 

Calculates the inner product 
V.V relative to the metric 
AMET. 

Expands MATRIX AM from 
triangular form and makes 
and MQ*MQ square symmetric 
matrix in SQ(MQ,MQ). 

Puts the lower triangle of 
SQ(MS,MQ) into symmetric 
matrix form in TRI. 

Generates an Eigenrotation 
of an LP*LP submatrix of 
the array R. The Eigenvalues 
are returned in E and this 
Eigenvector matrix is in 
V(NM*NM) , where the second 
index runs over Eigenvectors 
and the first within them. 
Subroutines TRIDMX, EIGVAL 
and EIGVEC are used. 



D.l MATHEMATICAL .SUBROUTINES (CONT.) 
Subroutine Name and Calling Sequence 
EIGVAL(LP,E,A,B,W,P) 


EIGVEC(LP,NM,R,A,B,E,V,P,0) 


MINV(A,B,C) 

MPVS(AM,C,V) 

MTVEC(U,A,V) 

MVEC(U,A,V) 

NRAND(NX) 

ORDl (A, II, 12, N) 
SQMTX(SQ,AM) 


TRIDMX(N,NM,A,D,B) 
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Description 

Calculates the Eigenvalues 
in descending absolute 
order. Array A(LP) gives 
the diagonal elements of 
the tridiagonal matrix. 

Array B is a vector of LP 
elements. W and F are 
temporary storage. 

Calculates the Eigenvectors 
for the matrix R(LP) with 
maximum dimension NM. Array 
A holds the tridiagonalized 
R; Array B holds the off- 
diagonal elements of tri- 
diagonalized R; E are the 
Eigenvector of R; V holds 
the Eigenvectors stored 
columnwise and P and Q are 
temporary storage. 

Creates matrix A as product 
of matrices B and C. 

Creates tensor product in 
AM(AM=AM+V*V*C) . 

Creates double precision 
product of vector V and 
array A in array U. 

Creates product of vector V 
and array A in array U. 

Creates positive integer 
between 0 and 

Sorts the characters in 
array A(I1) through A(I2). 

Expands the matrix AM from 
triangular form and makes an 
MQ*MQ square symmetric matrix 
in SQ(MQ,MQ) TR(AM,AMET) 
calcul.ites the trace of 
matrix AM relative to the 
metric AMET. 

Tridiagonalizes a real 
symmetric matrix. 



D.l MATHEMATICAL SUBROUTINES (CONT.) 

Subroutine Name and Calling Sequence Description 

TRIMTX (TRI I SO) Takes the lower triangle 

of SQ(MQ,MQ) and puts it 
into symmetrix matrix 
form in TRI. 

VMTV(VA,AMET,VB) Calculates array VA equal 

to matrix AMET times array 
VB.. matrix A is stored in 
lower triangular form. 

VPV(VA,PAC,VB) Calculates array VA equal 

to the sum of array VA and 
the product of array VB and 
constant FAC. 
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D.2 


MATHEMATICAL FUNCTIONS 


Function Name and Calling Sequence 
APRIOR 

DAMSQ*8 (AM,AMET> 

DISC(N) 


Des iription 

Forms sum of BIAS and product 
of VFAC*AMQ. 

Calculates the trace of the 
square of the matrix AM, 
relative to the metric AMET. 

Calculates an integer between 
0 and N. 


UN IF (W) 


Calculates a floating point 
number between 0 and W. 
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EOD LARSYS ROUTINES 


D. 3 

Subroutine Name and Calling Arguments Description 


BNI4AI (IFLD,INCHR,IBN; 

FDLINT ( FIELD , NPTS , FL , YLINE , NSAMP , J J ) 


FLDINT (FLD INF, FETVEC, NOFEAT) 

FSFMFL (UNIT , FILE , I SAT) 

LAREAD (FLDNAM,VERTCS,FLDINF,NC) 

LINERD ( IDATA , ENDTAP ) 

NUMBER ( CARD , COL , NUMVEC , NOW) 

NXTCHR( CARD, COL) 
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Converts the internal binary 
number IBN to the first 
INCHR characters of the 
array IFLD. 

Returns the number of 
samples, NSAMP, contained in 
the field of the given scan 
line YLINE. Array FL of 
length JJ contains the ordered 
pixel intercepts. Array 
FIELD contains the field table 
entered by the user; NPTS is 
the number of points in this 
field table. 

Unpacks the pixel from the 
data header according to the 
rectangular field description 
in FLDINE using the channel 
array FETVEC for NOFEAT 
channels. Data stored in 
LARSYS common block /TAPERD/. 

Positions file on unit UNIT 
at file FILE. Returns status 
in ISTAT. 

Reads NC field definition 
card images to determine the 
field name FLDNAM, the array 
field vertices VERTCS, and the 
array of field information 
FLDINF . 

Unpacks information from the 
data tape into array IDATA. 

The numbers in array CARD 
starting at column COL are 
stored in array NUMVEC. The 
routine is terminated by 
the first non-blank, non- 
numeric, non-comma character. 

The next non-blank character 
in card CARD beginning at 
column COL is returned as a 
function. Pointer COL is 
updated to point to the 
character following the returned 
character . 


eod larsys routines (CONT.) 
Subroutine Name and Calling Arguments 
RWRITE (BEGADD , WHERE , TOTWDS , STATUS) 


RWRITE ( BEGADD , WHERE , TOTWDS , STATUS ) 


TAPHDR (DATAPE , IPILE ) 

WRTHED (NCHAN , PEAT , NSAMP ,PRMAT , lUNIT) 


WRTLN ( IDATA , LSTLIN ) 


Description 

Simulates the random read 
of a work file. BEGADD is 
the address in the file; 
data is read into array 
WHERE; user specifies 
number of words to be read 
in TOTWDS; and fjTATUS is a 
dummy variable. 

Simulates the random write 
of a work file. BEGADD is 
the address in the file; 
data is written from array 
WHERE; user specifies 
number of words to be written 
in TOTWDS; and STATUS is a 
dummy variable. 

Reads the hea' ar record of 
file IPILE from file DATAPE 
into common b lock /TAPE RD/. 

Writes the header record 
for the data tape lUNIT. 

The NCHAN channels in 
array PEAT are written on 
unit lUNIT. The number 
of samples per channel is 
in NSAMP; FRMAT contains 
the format. 

Writes the data from array 
IDATA. Status for the last 
record is in LSTLIN. 
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D.4 UTILITY ROUTINES 

Subroutine or Function .lame and 
Calling Arguments 

/XFREE(KLHED,LEN) 

CMERR 

F REE ( LOCATE , LENGTH ) 

MORSTR (LENGTH 


Description 


Frees the storage in the 
LINK array used by cluster 
KLDHED of length LEN and 
all of its subclusters. 

Writes error message and 
terminates the program. 

Frees the storage in LINK 
array with index LOCATE 
of length LENGTH. 

Function that gets the index 
for a block of storage in 
LINK array and makes that 
storage unavailable. 
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